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19 

20 


* VERSION 2. 

it 


NOV. 16, 1978* 

DISK * 

FOR ANY QUESTION ON THIS PROGRAM OR THE CONTROLLER, * 


2K PROGRAM FOR SA850 COMPATIBLE DRIVE. 

r r 


* CONTROLLER 

* PLEASE CONTACT MIKE JANAK OR NORMAN LEUNG OF SIGNETICS 

* CORPO RATION. SUNNY VALE* CALIFORNIA. _ 

* THIS IS AN EVALUATION PROGRAM FOR 8X330 FLOPY DISK CONTROLLER 

* CONFIGURATIONS 2 FLOPY DISK DRIVES, 1 CRT AND THE 13 I.C. 

* FLOPPY DISK CONTROLLER. 

THIS PROGRAM USES 2l< OF MEMORY. THERE' "ART 700“ WORDTOF CODE' FOR 

* FLQPPYq RELATED FUNCTION. 1.3K OF MEMORY IS USED FOR CRT RELATED 


THIS PROGRAM IS SUBJECT TO FUTURE IMPROVEMENT. 

THIS PROGRAM RUNS AT 559 NS INSTRUCTION CYCLE TIME. 


☆ it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it * it it it i' it it it it 

LIST M,S,0 


— - 

22 




-l am 

OBJ 

'I, fUTU/U/J 

R,B 


23 



☆ 




24 _ 

110 

7 0 

CTR1 

RIV 

1 1QH,7,8 

★CURRENT TRACK REGISTER 1 

25 



* 



*=377H FOR POSITION NOT KNOWN 

26 

110 

0 1 

CTR1S 

RIV 

1 1 0H,0, 1 

*0=SIDE 0, INSIDE 1. DRIVE 1 

27 

110 

7 7 

CTR1T 

RIV 

1 1OHj.7,7 

^CURRENT track OF DRIVE 1 

28 

111 

7 0 

CTR2 

RIV 

1 1 1 H, 7, 8 

★CURRENT TRACK REGISTER 2. 

29 



iV 



★=377H FOR POSITION NOT KNOWN 


111 

0 1 

f TR?§ 

RIV 

1 1 1H,Q,1 

&Q-SIDE 0 # INSIDE 'J . DRIVE 2 

31 

111 

7 7 

CTR2T 

RIV 

1 1 1H,7,7 

★CURRENT TRACK OF DRIVE2^ 

32 

112 

7 0 

PHS1 

RIV 

1 1 2H,7,8 

★PHYSICAL STATUS BYTE 1 

22 

113. 

7 0 

PHS2 

RIV 

1 13H*7*8 

★PHYSICAL STATUS BYTE 2 

34 

114 

7 0 

STA 

RIV 

114H,7,8 

★STATUS REGISTER 

35 

114 

6 2 

MODU 

RIV 

1 1 4H,6,2 

*10=SINGLE DENSITY, 00=D0UBLE DENSITY 

2S6- 

115 

7 0 

PS 

RIV 

1 15H,7,8 

★PROGRAM STATUS 

37 

115 

7 5 

PSCC 

RIV 

115H,7,5 

★PS COMMAND CODE 

38 

115 

2 3 

PSCS 

RIV 

1 15H,2,3 

★PS INTERNAL COMMAND STATUS 

19 

116 

7 0 

BA 

RIV 

1 16H,7,8 

★BUFFER ADDRESS 8X350 

40 

117 

7 0 

SS 

RIV 

1 1 7H,7,8 

★STARTING SECTOR NUMBER 

41 

120 

7 0 

STR 

RIV 

120H,7,8 

★STARTING TRACK NUMBER 

42 

122 

7 0 

G1 

RIV 

122H,7,8 

*GENERAL REGISTER 1 

43 

123 

7 0 

G2 

RIV 

123H,7,8 

★GENERAL REGISTER 2 

44 

124 

7 0 

G3 

RIV 

1 24H,7,8 

★GENERAL REGISTER 3 

15- - 

125 

7 0 

G4 

RIV 

125H*7,8 

★GENERAL REGISTER 4 

46 

126 

7 0 

G5 

RIV 

1 26H,7,8 

★GENERAL REGISTER 5 

it? 

127 

7 0 

G6 

RIV 

1271!, 7, 8 

★GENERAL REGISTER 6 

18 - _ . 

137 

7 0 

FDAT 


137H,7,8 

★DISK DATA REGISTER 

49 

136 

7 0 

SLEN 

RIV 

1 36H, 7,8 

★SECTOR LENGTH REGISTER 

50 

132 

7 0 

COM 

RIV 

1 32H, 7,8 

★COMMAND REGISTER WRITE 

-51 

132 

7 0 

ST33Q 

_RIV_ 

132H,Z A 8 

★8X330 STATUS REGISTER READ 

52 

134 

7 0 

DCOM 

RIV 

134H,7,8 

★DISK COMMAND REGISTER 

53 

135 

7 0 

DSTA 

RIV 

1 35H,7,8 

★DISK STATUS REGISTER 

54 

133 

7 0 _ 

MfQM 

RIV 

133H.7.8 

★MODE COMMAND REGISTER 



M 
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PRCO RIV 133H,0,1 
RMOD RIV 133H/1/1 

~ PREA “ RIV 133IM/1 
FMMFM RIV 133H/6/2 

DIR^ RIV 134h'o*1 
STEP RIV 134H/1/1 

SIDE RIV 134H/4/1 
HEAD RIV 134H/5/1 


WRGA RIV 132H/0/1 
CRCE RIV 132H/1/1 

AMSEA RIV l32H,3/f 
AMNI RIV 132H,3,3 
LCNT RIV 

BCNT RIV 1 32H/5/1 
BYTRA RIV 132H/6/1 

TROO RIV 135H/0/1 
IX RIV 135H/1/1 
JiRER — RIV. 13-5-fcUZ^l 
DCH RIV 1 35H/3/1 
PHS'10 RIV 112H,0,1 
PHS 1 1 RIV 1 1 2H/1/L 
PHS12 RIV 112H/2/1 
PHS13 RIV 112H,3,1 
PHS1.4 &I V U 2H A I 
PHS15 RIV 1 12H/5/1 
PHS16 RIV 1 1 2H/6/1 
PHS1 ? RI V 11 2H/ 7 / 1 
PHS20 RIV 113H/0/1 
PHS21 RIV 113H/1,1 


PHS23 PIV 113H/3/1 
PHS24 filV 113H,4,1 

PHS26 RIV 113H/6/1 
PHS2? RIV 1 13H/7/1 

ST AQ. &1V llM ti U . 

STA1 RIV 114H,1,1 
STA2 RIV 114H/2/1 


STA4 RIV 114H,4,1 

S.IA 5 _.m WjA*l A 

STA6 RIV 1 14H/6/1 
STA7 RIV 1 14H/7/1 


FQU 27H 
EQU 012H 


*PRECQMP=1 
*READ M0DE=0 

*PREAMBLE SELEC f 
*1 X=FM/00=MFM/Q1 =MMFM 

■ M ALE £ 8E3U£N£Y._ 

*DIRECTI0N OUT=1 
a$TEP ACTIVE LOW 

a 1QB j DRIVE 1/Q18=DRIV E 2 

*SIDE SELECT. SIDE 0=1 SIDE 1=0 
MEAD LOAD ACTIVE=0 

» 10.W WRITE CURRE N TgQ. _ 

*WRITE GATE ENABLE=0 
^COMPUTE CRC=1 

M ATA AND CLQCK=Q/ DATA ONLY=1. 
*BIT SYNC=0/ AM SEARCH=1. 

*AM NIBBLE. 

JlLQAD-B.Y.TE. COU NTE RS 

*BYTE COUNTER M.S.B. 

*BYTE TRANSFER ACTTVE=0 


*ON TRACK ZERO=0 
*INDEX ACTIVE=0 

AWRITE PRQTECT=Q _ 

*DISK CHANGED=0 

^PHYSICAL STATUS BYTE 1 BIT 0 

^PHYSICAL STATUS BYTE 1 8IT~2~ 
^PHYSICAL STATUS BYTE 1 BIT 3 


~*PHYSICAL STATUS BYTE 1 BIT 5 
^PHYSICAL STATUS BYTE 1 BIT 6 


^PHYSICAL STATUS BYTE 2 BIT 0~ 
^PHYSICAL STATUS BYTE 2 BIT 1 
^PHYSICAL STATUS BYTE 2 BIT 2 
*PHYSICAL STATUS BYTE 2 BIT T 
*PHYSICAL STATUS BYTE 2 BIT 4 

- ^PHYS I CAL S T AT U S BYTE 2 BIT __5„ 

APHYSICAL STATUS BYTE 2 BIT 6 
*PHYSICAL STATUS BYTE 2 BIT 7 


AHEAD LOADED STATUS/ 1=HEAD LOADED 
*SINGLE SIDED MEDIA STATUS/ 0=S. SIDE 

AQ=26 SECTORS/ 1=15 SEC TORS 

*FOR TM AND WB COMMAND 

-MMrlfl. ,_M/ 'QO 


^LEFT BANK 
H.INE FEED 
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163 

164 

165 

166 
167 


* MACRO DELAYP * 

* SAME AS MACRO DELAY EXCEPT WITH R1 AND R2 AS PARAMETER* 

* k 


☆ it ☆ ☆ ☆ it it it it it it it ☆ ☆ it it it it it * ☆ it iV ☆ ☆ -,V * * ☆ ☆ ☆ * * k it ☆ ☆ & tfnSnfr * ★ & * ☆ ☆ it * A* ☆ ☆ * ☆ * ☆ ☆ 

DELAYP MACRO J6,DEL,R1,R2 


169 

XMIT 1,AUX 



t 

170 

J6 ADD R1,R1 




171 

NZT R1 „J6 




172 

ADD R2,R2 




173 

NZT R2,J6 

*END DELAY LOOP 



174 

ENDM 




175 

it * * it it * it it it it * A* it it * * * * * *,V AnVUSriSr >V ☆ >V * * * * Vc * >V Ar rt A* ifir Ar ☆ ☆ 



176 

it 

it 



177 

* MACRO CRLF 

it 



178 

* MACRO TO DETECT A CR FROM 

CRT. * 



179 

* XMIT LF TO CRT 

tV 



180 

* R4= WORKING REGISTER 

it 



181 

* LNBKCR= INTERNAL LABEL 

it 



182 

* R1,R2 AND R4 ARE USED IN 

DELAY LOOP * 



18? 

it 

i ( 



184 

it it it it it it it it it it >V it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 



185 

CRLF MACRO LNBKCR 




1B6- 

LNBKCR CALL TTYRE 

*READ CRT INPUT 



187 

CALL TTYWR 

*ECHO CHAR 



188 

XMIT 015H/AUX 

*' CR 1 TO AUX 



IRQ 

XOR R4,AUX 




190 

ORG 3,256 




191 

NZT AUX,*+2 

*'CR'? 



192 

JMP *+2 




193 

JMP LNBKCR 




194 

XMIT- 01 2H,R4 

*YES, XMIT 'LF' TO R4 



195 

CALL TTYWR 

*OUTPUT LF TO CRT 



196 

ENDM 




197 

it it it it it it irk it it it it it it it it it it it kit it it it it it it it it it it k it it it it it it it it it it it it 



198 

* * 




199 

*ma<Jro lfcr 

it 



200 

*MACRO TO DETECT A LF FROM 

CRT. * 



201 

*IF YES, XMIT LF, CR TO CRT 

AND END MACRO. * 



202 

*IF NO, END MACRO. 

it 



203 

* » 

it 




itkkititititititititititititititkititititisitkititititititititititititititititkitit 



205 

LFCR MACRO 




206 

CALL TTYRE 

*READ CRT INPUT 



207 

XMIT LF,AUX 




208 

XOR R4,AUX 




209 

ORG 7,256 




210 

• NZT AUX,L£LF+3 

*LF? NO, EXIST MACRO. 



211 

CALL TTYWR 

*YES. CRT LF 



212 

XMIT CR,R4 




71? 

LELF CALL TTYWR 

^GENERATE CR 



214 

ENDM 

*END MACRO 



215 

it it it it it it it it it it it it it it it it it it it it ,'s it it it it it it it it it it it it it it it it it it is it it it it it it it it it it it it it 



216 

it 

it 

• 





PROG FDC 


MICROCONTROLLER CROSS ASSEMBLER VER 2.0 


PAGE 5 


*MACRO TESTO 

*MACRO USED TO CONVERT ASCII 'O' - ’9' TO BINARY 


*R4» ASCII INPUT 
*R3= BINARY OUTPUT 


ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ☆ ft ft ft ☆ ft it ft * * ☆ * '.V * ft ☆ ft ft * >V * * ft >V ft ☆ V? ft V; ;V 


XMIT 360H,AUX 
AND R4,R3 
XMIT Q6QH/AUX 
XOR R3/R3 
NZT R3/LNTEQ 

.XMlI_lxH*A U X 

AND R4,R3 
XMIT 366H,AUX 

.ADD R3,AUX 

NZT OVF, LNTEQ 
JMP *+4 

.SSL PJiS23 

XMIT 1/PHS23 
JMP CERR 


*MASK 4 MSB OF R4 


*4 MSB=3 HEX? NO, GO TO LNTEQ 
_*!£§ 

*STORE 4 LSB IN R3 
*AUX= 377H-9H 

*4 L.S.B.>9? YES, GO TO LNTEQ 
*N0. EXIST MACRO. 


*60 TO PRINT ERROR ROUTINE 


N»T4HiIiIir#4 


253 

254 03762 7 04002 


it ft jr ft ft. jr j[ ft it ft ft it jr ft ft ft ft it it ik iV ft ft it it ft ft ft jr jr ft ft ft >V tV it it ft it yV ft tV _ __ 

ft § ft 

* SET UP JUMP TO EXTENSION FOR THE 1ST * 

* AN D 2ND LEVEL -SUBROU T INE R ETURN T ABLE * 

ft * ft 

ft ft 

ft ft ft ft ft it is ft ft ft ft it ft ft ft ft ft ft ft ft ft , ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft : 

ft 

ORfi 72H *1 ST AVAIL ADDR IN 2ND RTN TABLE IN ORG PGM 




ORG 3762H 
JMP 4002H 




*1$T AVAIL ADDR IN 1ST RTN TABLE IN ORG PGM 
*G0 TO 1ST LEVEL SUBR RETURN TABLE IN EXT 


259 

260 

_261 

262 

263 

264 

265 00000 7 00001 

266 00001 6 11000 


riiiinm 




267 00003 6 00001 

268 00004 6 01377 

2 69 0 Q005 6 02347 


☆ ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft y , ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft it ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

* 8flUIlNL-EflMfR0.M 5_ 

* * 


* PRESET ALL 8X330 INT REG AND 1/0 PORTS. 


ik ft ft ft ft ft ft ft ft ft* it it it ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft fi \* . it it ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft it ft 


JMP 1 

CALL L500MS 


XMIT 1 ,AUX 
XMIT 377H,R1 


**220MS WAITING LOOP SUBROUTINE 
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270 00006 

271 

222 sumi 

273 00010 

274 00011 
225.. .00012. 

276 00013 

277 

228. 

279 00014 

280 0001 5 

281 00016 

282 00017 

283 00020 

~ 285 00022 
286 00023 
28 7 0002 4 

288 00025 

289 00026 

290 

291 

292 

293 

294 

295 

296 

297 

298 


300 00027 

301 00030 

302 QQQ31- 
00032 

303 00033 

304 00034 

305 00035 

306 00036 


uirjwnuMi 


6 03110 

il_Q3Q12 

0 01037 

1 02002 

_L_03QQ3 

5 02007 


6 17001 
6 00376 
0 QQ037 
6 17134 
6 33200 
0 02013 
6 17114 
6 00200 
0 0 003 7. 
6 17117 
6 37001 


6 01000 

4 01036 

6 110 Q 1 

7 02356 
6 00001 
1 ..fllflOl. 
700030 
6 04015 


ULUHi 


XMIT 110H,R3 *SET START IVR ADDRESS 

* THIS LOOP PRESET ALL 8X330 REGISTERS 

R330 MOVE R3..IVR 

MOVE R1#RB 
ADD R2,R2 


J1 NZT R2/R330 

* ABOVE LOOP PRESET ALL 8X330 REG TO 377H 

_* 

~ XMIT 1 IVR - 

XMIT if 1111 10B,AUX *J*INITIALIZE OUTPUT PORT 


SEL DRSEL 
XMIT OH/DRSEL 
MOVE R2.R1 1 
SEL STA 
XMIT 200H/AUX 
MOVE AUX.RB 
SEL SS 
XMIT 1,SS 


*D*DESELECT ALL DRIVE 

* R11= Q 

* INITIALI Z E STA RE GISTER. DR = 2 MF HJLMM6- 

*INITIALIZE STARTING SECTORS 


it it it it it it iSr ☆ it it it it it it it ☆ ☆ it it it it ☆ it * it it * it V? it * * it it it it it * it it V? it ☆ it it it it it it it V? * it it it it it it 

tV _ 

TV ☆ 

^WRITE TEXT 

AN EXPERIMENTAL- * - 8X330 *JELQE1 -D I SK... CflMIRQLLER_jL 

it * 

☆ * 

ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * * ft ft ft ft * V!r ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

XMIT Q,R1 

J70 XEC TAB4CR1) 


XMIT 1 /AUX 

AMLfiUR] 

JMP J70 

TAB4 XMIT CR,R* 

I 01 


*PRINT OUT '8X330' MESSAGE AT POWER ON 

* 


S 08 

00040 

6 04138 

XMIT ‘X',R4 


309 

00041 

6 04063 

XMIT '3',R4 





311 00043 

312 00044 


6 04060 
6 04012 




314 00046 

315 


7 00102 


XMIT '0 ,R4 
XMIT LF/R4 




JMP IDLE 


*G0 TO IDLE LOOP WAITING FOR CRT INPUT 


ft ft ft ft ft ft ft ft ft ft' ft ftftftft ft ft ft ft & ft ft ft ft ft ft V; ft ft ft ft 
ft ft 

* 2ND LEVEL SUBROUTINE RETURN * 
- * T A B LE : ±. 

ft It 

it it it it it it it it Hit it it it it it it it it it it it it it it it it it it it it it 
it 
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323 

00047 

6 17127 

RET2 

SEL G6 




324 


000047 

RTN2 

SET RET2 




325 

_Q0Q5Q_ 

n 


MOVE G6,AUX 




326 

00051 

4 00052 


XEC *+1 (AUX) 




327 




ORG RTN2+23 




32 a_ 



* 





329 



* ENTER HERE FOR THE 2ND LEVEL SUBROUTINE RETURN JMP 




330 



it 





. 331 



★ 





332 



^DEFAULT SELECT DRIVE 2 




333 

00076 

6 17134 


SEL DRSEL 




334 

00077 

6 33201 


XMIT Q1B,:RSEL *D*PHYSICALLY SELECT DRIVE 2 




335 

00100 

6 17114 


SEL STAO 




336 

00101 

6 30101 


XMIT 1,STA0 ^UPDATE DRIVE SELECT STATUS 




337 



it 





336 



>V it ☆ it it ☆ ☆ it it it it it it it it it it it ☆ it ☆ it ☆ it it * ☆ * Vc ☆ * 




339 



☆ 

it 




340 



* CLEAR STATUS REGISTERS * 




341 



* ENTRY POINT TO IDLE STATE * 




342 



* SET 

PHS1=PHS2=0 * 




343 



iV 

it 




344 



itititirititititititititititititititititiiitititititititititif 




345 








34A 



* 





347 

00102 

6 00000 

IDLE 

XMIT OB/AUX 




348 

00103 

6 17112 


SEL PHS1 




349 

00104 

0 00037 


MOVE AUX,PHS1 * CLEAR PHYSICAL STATUS REG. 1 




350 

00105 

6 17113 


SEL PHS2 




351 

00106 

0 00037 


MOVE AUX,PHS2 *CLEAR PHYSICALLY STATUS REG. 2 








END POWER ON ROUTINE 




353 



* 





354 



it 





355 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 




356 



it 

it 




357 



* COMMAND INPUT * 




3?8 



it 

it 




359 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 




360 



it 





361 



it 





362 

00107 

6 11002 

J40 

CALL L500MS **220M$ WAITING LOOP SUBROUTINE 





00110 

7 02530 






363 

00111 

6 17133 


SEL MCOM __ 




364 

00112 

6 3110"! 


XMIT 1,RM0D *TURN ON TICKLER 




365 

00113 

6 17001 


SEL PLLS 




366 

0Q1 14 

6 37100 


XMIT 0,PLLS *PLL FOR TICKLER 




367 

00115 

6 17134 


SEL HEAD 




368 

00116 

6 35101 


XMIT 1 H/HEAD ^UNLOAD HEAD 




369 

00117 

6 1 71 IjJ 


SEL STA 




370 

00120 

6 311uO 


XMIT 0/STA1 *UPDATE HEAD LOAD STATUS 




371 

00121 

6 11003 


CALL TTYRE *INPUT FIRST COMMAND CHAR. 





0012? 

7 02302 






372 

00123 

6 11004 


CALL TTYWR *ECHO CHAR 





00124 

7 02356 






373 

00125 

A QQQ4Q 


XMIT BL.AUX *NQ _ __ 
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374 00126 3 04002 

375 00127 5 02131 


377 000016 

378 00131 6 00116 

379 QQ1 32 3 04QQ0 

380 00133 5 00135 

381 00134 7 01150 

382.- 00-135 fl. -0.4005 . 


XOR R4,R2 
NZT R2#*+2 
JM P J 4 Q 


NTPS SET 14 

XMIT 'N'/AUX 
XQR.&UAUX. 


*BLANK CHAR.? 

*YES, GO BACK TQ GET ANOTHER INPUT 


383 00,36 
00137 

384 001 40 


00141 
385 00142 


6 11005 

7 02302 
6 11006 


CGE1 


387 00144 

388 00145 

.382 


7 02356 
6 00130 
3 03000- 


NZT AUX/CGE1 
JMP NT 

MO V E M # R5 — 
CALL TTYRE 


*READ OR WRITE ALPHA OF NEXT SECTOR ? 
*YES 

*N0 # SAVE FIRST COMMAND CHAR. IN R 5. 


*J*PUT SECOND COMMAND CHAR. 
*E CHO CHAR 


5 001 4* 
7 04001 


CGE2 XMIT 'X'/AUX 
XOR R5*AUX 


NZT AUX/CGEE1 
JMP CEXT 


^EXTENDED COMMAND SET? 
*YES 


NO/ GO TO CGEE1 


390 

391 

322 .. 


393 

394 
.325- 


is is is is is Tftr is tSt it is is ☆ ☆ <r is is is is is is is is is it is is is is is ☆ is 
* is 

^COMPARE OF COMMAND CODE 


☆ is it is is it is ft It is ☆ >V ☆ * ☆ ★ >V ☆ ☆ is is is is is is is 

is 


396 

397 00146 

398 001 A 7 

399 00150 


6 01000 
A-Q1162- 


05G0: 


CGEE1 XMIT 0/R1 
J. 1 XEC TAB UR 1) 


XOR R5/R3 


* LOAD FIRST CHAR IN AUX 


*CMP FIRST CHAR. 


401 

Onis? 

6 17115 


SEL PS' 

*SET UP COMMAND CODE UPDATE IN EACH ROUTINE 

402 

403 

404 

oci5: 

0015* 
PQ1 55 

4 01163 
3 0*003 


XEC TAB1+KR1) 
XOR R4/R3 
NZT R3,J8 

*CMP SECOND CHAR 

ooo 

<r<r<r 

ooi ;6 

00157 
00** 60 

4 01164 
6 00003 
1 01001 

J8 

XEC TAB1 +2 (R1 ) 
XMIT 3/AUX 
ADD RUR1 


408 

409 

410 

00161 

00162 

7 00147 
6 01122 

* 

TAB1 

JMP J7 

XMIT 'R'/AUX 


411 

412 

413 

00163 

00164 

6 00123 
000000 

7 00566 

RSPS 

XMIT 'S'/AUX 
SET 0 
JMP RS 

*G0 TO READ STATUS ROUTINE _ .. 

414 

415 

416 

00165 

00166 

6 00123 
6 00113 
000001 

SKPS 

XMIT ’S'/AUX 
XMIT ’K'/AUX 
SET 1 


417 

418 

419 

00167 

00170 

001 71 

7 00474 
6 00122 
6 00110 


JMP SK 

XMIT ’R'/AUX 
XMIT ’H'/ AUX 

*G0 TO SEEK ROUTINE 

420 

421 

422 

00172 

00173 

000002 
7 01072 
6 00122 

RHPS 

SET 2 
JMP RH 

XMII 'R'/AUX 

*G0 TO READ SECTOR HEX ROUTINE 

423 

424 

.... —425_ 

00174 

00175... 

6 00101 
000003 

.7 Oil 10 

RAPS 

XMIT 'A' /AUX 

SET 3 

JMP RA 

m. IQ -READ SECTOR ALPHA ROUTINE . . 
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PATE 


9 


426 

427 


00176 

00177 


6 00127 

6 00110 


XMIT 'W',AUX 
XMIT ' H* ,AUX 


429 

430 
431 

00200 7 01222 

00201 6 00127 

00202 6 00101 


JMP WH 

XMIT 'W',AUX 
XMIT 'A’,AUX 

*G0 TO WRITE SECTOR HEX ROUTINE 


432 

433 

434 

00203 

00204 

000005 
7 01240 
6 001 22 

WAPS 

SET 5 
JMP W f 

*G0 TO WRITE SECTOR ALPHA ROUTINE 


435 

436 

437 

00205 

00206 

6 00111 
000006 

RIPS 

XMIT '"f^AUX 
SET 6 
JMP RI 

*G0 TO READ IDENTIFIER ROUTINE 


438 

439 

440 

00207 

00210 

6 00124 
6 00115 
000007 

TMPS 

XMIT 'T'/AUX 
XMIT 'M',AUX 
SET 7 



441 

442 

443 

00211 

00212 

00213 

7 01302 
6 00120 
6 00117 


JMP TM 

XMIT 'P'/AUX 
XMIT '0 ! ,AUX _ 

*G0 TO TEST MEDIA ROUTINE 


444 

445 

446 

00214 

00215 

000010 
7 00463 
6 00127 

POPS 

SET 8 
JMP PO 

XMIT 'W',AUX 

*G0 TO POSITIONING ROUTINE 


447 

448 

449 

00216 

00217 

6 00123 
000011 

7 00630 

WSPS 

XMIT 'S',AUX 
SET 9 

JMP WS 

*G0 TO WRITE STATUS ROUTINE 


450 

451 
45? 

00220 

00221 

6 00127 
6 00122 
000012 

UUPs 

XMIT * W' /AUX 
XMIT 'R'/AUX 
SET 10 



453 

454 

455 

00222 

00223 

00224 

7 01276 
6 00104 
6 00123 


JMP WR 

XMIT 'D'/AUX 
XMIT 'S',AUX 

*G0 TO WRITt RANDOM MEDIA ROUTINE 


456 

457 

458 

00225 

00226 

000013 
7 00403 
6 00122 

DSPS 

SET 11 
JMP DS 

XMIT 'R'.AUX 

*G0 TO DEVICE SELECT ROUTINE 


459 

460 

461 

00227 

0p?30 

6 00102 
000014 
7 00675 

RBPS 

XMIT 'B'/AUX 
SET 12 
JMP RBA 

*60 TO READ BUFFER ROUTINE 


462 

463 

464 

00231 

00232 

6 00127 
6 00102 
000015 

MBPS 

XMIT ' W' /AUX 
XMIT 'B'/AUX 
SET 13 



465 

466 

467 

00233 

00234 

00235 

7 01010 
7 00235 
6 17112 

CRJ 

JMP WB 
JMP CRJ 
SIL PUS 17 

*G0 TO WRITE BUFFER ROUTINE 

*N0 _ _ _ 


468 

469 
4ZQ- 

00236 

00237 

6 37101 

7 00305 

☆ 

XMIT 1B/PHS1 7 
JMP CERR 

*SET COMMAND REJECTED FLAG 
*G0 TO PRINT ERROR ROUTINE 


471 



it 





472 

_4ZX 


474 

475 
JO&- 


477 

47? 

-42SL 


it Vc iV ☆ >V iV iV iV >V A Vc iY it it it it it it it it it it it it it it it it it it it 


>v PRINT OK/ CR AND LF 
* JaO BACK. IQ IDLE 


it 

it 


it it 
it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 
it 
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480 

481 00240 

482 00241 . 

483 00242 

484 

485-410241 

486 00244 
00245 

487 00246 


6 17134 
-AjAm. 
6 33200 
000240 


488 00247 
00250 


6 11007 

7 02356 
- 4-04111 


6 11010 
7 02356 
4.44013 


It 

OKY 


SEL DCOM 
XMI T INSIDE 


OK 


XMIT OH/DRSEL 
SET OKY, 

CALL TTYWR 4 

xhhjk:«m. 




*D*DESELECT ALL DRIVE 
*E&aULia£l MESSAGE 


CALL TTYWR 

XMI T C R, R 4 
CALL TTYWR 

XMIT L£aR4- 


490 00252 
4SL 00253 


492 00255 
00256 

493 00257 

494 

495 


6 11011 
7 02356 
6 04012 


6 11012 
7 02356 
1 001 02 


^OUTPUT CR 


CALL TTYWR 
JMP IDLE 


’■'OUTPUT LF 


ft 
it 

it it it it it it >% ☆ it it it it it it it it it it it it it it it it it it it it it it it 


497 



it 


* 


498 



* PRINT LF, CR, OK, CR AND 

LF * 


*99 



* GO 

BACK TO IDLE WITHOUT 

it 


500 



* RESET PHS1, PHS2 

it 


501 



it 


it 


50? 



it it it it it it it it it it irk it it it it it it it it it it it it it it it it it it it 


503 



it 




504 



it 




505 

no 2 AO 

6 17134 

OKX 

SEL DRSEL 



506 

00261 

6 33200 


XMIT OH, DRSEL 

*D*DES ELECT ALL DRIVE 


507 


000260 

OKI 

SET OKX 



508 

00262 

6 04015 


XMIT CR,R4 



509 

00263 

6 11013 


CALL TTYWR 

’■'GENERATE CR 



00264 

7 02356 





510 

00265 

6 04012 


XMIT LF,R4 



511 

00266 

6 11014 


CALL TTYWR 

■'GENERATE LF 



00267 

7 02356 





512 

00270 

6 04117 


XMIT 1 O' ,R4 

’'PRINT 'OK' MESSAGE 


51 ? 

00271 

6 11015 


CALL TTYWR 




00272 

7 02356 





514 

00273 

6 04113 


XMIT ' 1< ' , R4 



515 

00274 

6 11016 


CALL TTYWR 




00275 

7 02356 





516 

00276 

6 04015 


XMIT CR,R4 



517 

00277 

6 11017 


CALL TTYWR 

* GENERATE CR 



00300 

7 02356 





518 

Q0301 

6 04012 . 


XMIT Lf>R4 



519 

00302 

6 11020 


CALL TTYWR 

’•GENERATE LF 



00303 

7 02356 





320. 

00304 

? API 07 


JMP J4Q 



521 



it it it it it it it it it it it is it it it it it it it it it it it it it it it it is it it it it it it it it it it it it it it it it it it it it it it is it it it it it it it it 


522 



it 


it 


523 



* CERR ERROR ROUTINE 

it 
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524 

525 
. 526 



* PRINT ERROR STA PHS1 PHS2 LF/CR ALL IN HEXIDECIMAL * 

it * 

it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


517 

528 

529 . 

J3Q3Q5_ 

6 17134 

it 

it 

CER 

SEL DRSEL 



530 

531 
532_ 

00306 

00307 
00310 

6 33200 
6 04015 
6 11021 


XMIT OH, DRSEL 
XMIT CR,R4 
CALL TTYWR 

*d*deselect drive 

*PRINT CR 


533 
534 

00311 

00312 

00313 

7 02356 
6 04012 
6 11Q22 


XMIT LF,R4 
CALL TTYWR 

’•'PRINT LF . 


535 

536 

00314 

00315 

7 02356 
000305 
6 04105 

:err 

SET CER 
XMIT 'E',R4 

*PRINT ERROR MESSAGE 


537 

538 

00316 

00317 
00370 

6 11023 

7 02356 
6 04122 


CALL TTYWR 
XMIT 'R',R4 



539 

540 

00321 

00322 
0Q3?3 

6 11024 

7 02356 
6 11025 


CALL TTYWR 
CALL TTYWR 



541 

54? 

00324 

00325 

00326 

7 02356 
6 04117 
6 11026 


XMIT ' O' ,R4 

CALL TTYWR 



543 

544 

00327 

00330 

00331 

7 02356 
6 04122 
6 1 1 0? 7 


XMIT 'R',R4 

CALL TTYWR 



545 

546 

00332 

00333 

00334 

7 02356 
6 04040 


XMIT BL,R4 
CALL TTYWR 

*PRINT BLANK CHAR. 


547 

548 

00335 

00336 

00337 

7 02356 
6 17114 
6 11031 


SEL STA 

CALL BHH 

’’'CONVERT CONTENT OF STA REG. INTO 2 HEX 


549 

00340 

00341 

00342 

7 02451 

6 11032 

7 02356 


CALL TTYWR 

*PRINT M.S. HEX CHAR. OF STA REG. 


550" 

551 

00343 

00344 

00345 

0 05004 

6 11033 

7 02356 


MOVE R5,R4 
CALL TTYWR 

-•'PRINT L.S. HEX CHAR. OF STA REG. 


552 

553 

00346 

00347 
0C35Q 

6 04040 
6 11034 


XMIT BL,R4 
CALL TTYWR 

’•PRINT BLANK CHAR. 


554 

555 

00351 

00352 

00353 

6 17112 

6 11035 

7 02451 


SEL PHS1 
CALL BHH 

’•CONVERT CONTENT OF PHS1 REG. INTO 2 HEX 


556 

00354 

00355 

00356 

6 11036 

7 02356 
0 05004 


CALL TTYWR 
MOVE R5,R4 

*PRINT M.S. HEX CHAR. OF PHS1 REG. 


J59 L 

00357 

00360 

00361 

6 11037 

7 02356 
6 04040 


CALL TTYWR 
XMIT BL,R4 

’•PRINT L.S. HEX CHAR. OF PHS1 REG. 


560 

561 

00362 

00363 

00364 

6 11040 

7 02356 
6 17113 


CALL TTYWR 
SEL PHS2 

’•PRINT BLANK CHAR. 
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562 

00365 

6 11041 


CALL BHH 

*CONVERT CONTENT OF PHS2 REG. INTO 2 HEX 


00366 

7 02451 




. 563 . 

00367 

.6 11Q42 


CALL TTYWR 

&PRINT M.S. HEX CHAR. OF PHS2 REG. 


00370 

7 02356 




564 

00371 

0 05004 


MOVE R5,R4 


.565 

110372- 

6 11043 


CALL TTYWR 

SPRINT L.S. HEX CHAR. OF PHS2 REG* 


00373 

T 02356 




566 

00374 

6 04012 


XMIT LF/R4 


567 

0Q375 

6 11044 


CALL TTYWR 

v-PRINT LF 


00376 

7 02356 




568 

00377 

6 04015 


XMIT CR/R4 


_ 569 

QQ4QQ 

6 11045 _ 


CALL TTYWR 

••PRINT CR 


00401 

7 02356 




570 

00402 

7 00102 


JMP IDLE 

*G0 BACK TO IDLE LOOP TO WAIT FOR COMMAND 

.571 



it ☆ it is is is is is is if is is is it is it is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is is 

572 



is 


* 

573 



is 


* 

574 



__ _ * DRIVE SELECT 3 UPDATE DRIVE SELECT STATUS IN STA REG. * 

575 



is 

AND CHECK 

FOR DISK CHANGE. * 

576 



is 

PHYSICALLY 

DEFAULT TO SIDE 0. * 

577 



* DS 

. 1 OR 2 CR 

is 

578 



* 


is 

579 



iSr 


is 

580 



is it is # is 'it is is it is is is is it it is is is it is is is is is is is is is is is is is is is it is is is is is is it is is is is is is is is is is is is is is is is is is is 

581 

00403 

6 37013 

DS 

XMIT DSPS, PS 

••UPDATE COMMAND CODE IN PROGRAM STATUS REG. 

582 

00404 

6 11046 


CALL TTYRE 



00405 

7 




583 

00406 

6 11047 


CALL TT MR 

•••ECHO CHAR. 


00407 

7 02356 




584 

00410 

6 OOP 40 


XMIT BL,hUX _ 


585 

00411 

3 04000 


XOR R4,AUX 


586 




ORG 3,256 


587 

00412 

5 CO0 14 


NZTAUX,*+2 _____ 

••BLANK CHAR.? NO, GO TO Cl. 

588 

00413 

7 00403 


JMP DS 

*YES, GO BACK TO DS 

589 

00414 

7 00431 


JMP Cl 


590 

00415 

6 11050 

J47 

CALL SELDR 

.♦PHYSICALLY SELECT DR ACCORDING TO STATUS 


00416 

7 02612 




591 

00417 

6 17134 


SEL SIDE 


592 

00420 

6 3^1,01 


XMIT 1 ..SIDE 

♦DEFAULT ...SIDE 0, 

593 

00421 

6 17135 


SEL DCH 


594 

00422 

5 33126 


NZT DCH, *+4 

’•DISK CHANGE? NO, GO TO J50 

595 

QQ423 

6 17113 


SEL PHS24 


596 

00424 

6 34101 


XMIT 1B,PHS24 

*YES, SET DISK CHANGE FLAG 

597 

00425 

7 00305 


JMP CERR 

*G0 TO PRINT ERROR ROUTINE 

598 

00426 

6 17134 


SEL DRSEL 


599 

00427 

6 33200 


XMIT OH, DRSEL 

*D*PHYSICALLY DESELECT ALL DRIVE 

600 

00430 

7 00450 


JMP J50 


601 

00431 

6 00061 

Cl 

XMIT ' 1 ' *AUX 


602 

00432 

3 04000 


XOR R4,AUX 


603 

00433 

5 0003/ 


NZT AUX,J48 

*DRIVE 1? NO, GO TO J48 

604 

00434 

6 17114 

J49 

SEL STA 

••'•YES 

605 

00435 

6 30100 


XMIT 0,STA0 

’••UPDATE DRIVE SELECT STATUS IN STA REG. 

606 

00436 

7 00415 


JMP J47 


: 

00437 

6 00062 

JL4&- 

XMIT '2',AUX 

4DRIVE 2? 
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608 00440 
m 00441 
CIO 00442- 


61 1 00443 

612 00444 
All- 

614 00446 

615 00447 

A16 00450 


3 04000 

5 00045 

6 17114 


00451 
617 00452 


6 30101 

7 00415 
17113 

6 33101 

7 00305 
6 1 1051. 


02302 

11052 


XOR R4.AUX 
NZT AUX/J51 
SEL STA 


-JA£L 


XMIT 1 ,STAO 
JMP J47 

£HSi 

XMIT 1B/PHS23 
JMP CERR 
C ALL T T Y RE 


*N0, GO TO J 51 
»Y £S. 


^UPDATE DRIVE SELECT STATUS IN STA REG. 


*G0 TO PRINT ERROR ROUTINE 


CALL TTYWR 


'•ECHO CHAR. 


618 

619 

620 

"00454 

00455 

6 00015 
3 04000 


XMIT CR,AUX 

XOR R4,AUX 

ORG 3,256 _ 


621 

00456 

5 00050 


NZT AUX/JSO 

*CR CHAR.? NO, 60 TO J50 

622 

00457 

6 04012 


XMIT LF/R4 


621 

00460 

6 1103" „ 


CALL TTYWR 

"•GENERATE LF 


00461 

7 02356 




624 

00462 

7 00240 


JMP OK 

*G0 TO PRINT OK ROUTINE 

625 



if 



626 



it 



627 



it 



6?fi 



it it it it it it it it it it 'it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 

629 



it 


it 

630 



* COMMAND P0= MOVE HEAD 

TO TRACK 00. * 

_ _ 411 



* PO 

CR 

it 

632 



☆ 


it 

633 



it it it it it it it it it it it it is it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 

414 

00461 

6 37010 

PO 

XMIT POPS, PS 

^UPDATE COMMAND CODE IN PROGRAM STATUS REG 

635 



it 


*2ND LEVEL SUBROUTINE TO DETECT CR AND 

636 




CALL2 DCRGLF,J22 

^GENERATE LF 

6?6 



+is 



636 

00464 

6 17127 

+J22 

SEL G6 


636 


000000 

+POINT 

SET POINT+1 


636 

00465 

6 37000 

+ 

XMIT POINT, G6 

*STORE RETURN JUMP INDEX IN G6 

636 

00466 

7 01511 

i 

JMP DCRGLF 

*G0 TO 2ND LEVEL SUBROUTINE 

636 



+ 

ORG RTN2+P0INT+3 

^INSERT THE NEXT INSTR. IN RETURN TABLE 

63A.. 

00052 

7 00467 

+ 

JMP J 22+3 

*2ND LEVEL SUBROUTINE RETURN J UMP 

636 




ORG J22+3 


637 



it 



^8 

00467 

6 11Q54 


CALL SELDR 

'•SELECT DRIVE ACCORDING TO STATUS 


00470 

7 02612 




639 

00471 

6 11055 


CALL RESTORE 

*G0 TO TRACK 00 SUBROUTINE 


00472 

7 QMff? 




640 

00473 

”7 00240 


JMP OK 

••GO TO PRINT O.K. ROUTINE 

641 



* END OF PO ROUTINE 


642 


☆ 



643 



it 



644 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it is it it it it it it it it it it it it it it it 

. 645 



it 


it 

646 



*SEFK 

COMMAND* MOVE R/W 

HEAD FROM CURRENT TRACK TO DESTINATION TRACK * 

647 



*SK 11 

12 CR 


642 



it 


if 
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6 11056 

7 02*02 


649 

650 00474 6 37001 

651 0Q4Z5 6_L7.HA 

652 00476 0 30106 

653 00477 4 06164 

655 00501 3 37000 

656 00502 5 00106 

■65X .00503- 6JLZ112 

658 000503 

659 00504 6 34101 

661 00506 6 11056 

00507 7 02*02 

00511 7 02356 

663 00512 6 00040 

665 00514 5 00116 

666 00515 7 00474 

. 66 7 0 051 6 a 11060 

00517 7 03017 

66 8 00520 0 03005 

66 9 QQ5 2 1 6 QQ37 6 

670 00522 1 03000 

671 00523 5 10125 

672 00524 7 0 0526 

673 00525 7 02755 

674 00526 6 11061 

00527 7 02302 

675 00530 6 11062 

00531 7 02356 

6 7 6 00532 6 0 00 4 0 

677 00533 3 04000 

678 

679 00534- Jl_QQ136 

680 00535 7 00526 

681 00536 0 04003 

682 QQ5 37 6 11 063 

00540 7 02302 

683 00541 6 11064 

0054 2 7 0 2356 

684 00543 6 11065 

00544 7 03036 

6 85 0 05.45 6 00263 

686 00546 1 03000 

687 00547 5 10151 

689 00551 7 02755 

690 

-691 

691 

691 00552 6 17127 

-621 0QQQQ1 




3 04000 


SK XMIT $KPS,PS 

S£L_5IA0 

MOVE STA0/R6 
XEC TABL1CR6) 
— _ XMIT 3 77 1k AUX- 
XOR RB,AUX 
NZT AUX,*+4 

POERR SET L444 

XMIT 1H,PHS14 

JMP CERR 

CALL TTYRE 


XMIT ' ',AU> 



NZT AUX,*+? 
JMP SK 

CALL-11 

MOVE R3/R5 

XMU-3ZZlir.il 

ADD R3/AUX 
NZT 0VF,*+2 

JM P LLP 

JMP LSKE1 
LLP CALL TTYRE 

CALL" TTiWR - 


XOR R4,AUX 
ORG 3,256 , 

JMP LLP 4 * +t 
MOVE R4,R3 


+* 

+CRSK 


CALL TTYWR 

Tall 12 


ADD R3,AUX 
NZT 0VF,*+2 


JMP LSKE1 


SEL G6 


^UPDATE COMMAND CODE IN PROGRAM STATUS REG. 


*SEL CURRENT TK REG. ACCORDING TO STATUS 


^POSITION KNOWN? 


*YES, READ SIDE INFO. 


*BLANK CHAR? 

*nq^60°to A asc ii tq A b inary 1 conver siqn 
*STORE SIDE INFO IN R5 


* 11 < 2 ? 

»YES _ 

*N0, GO TO PRINT COMMAND FORMAT ERROR 
*READ 1ST INTEGER OF TRACK INFO 

*ECHO CHAR 


*YES, GO BACK TO READ AGAIN 
*N0 . STORE MS INTEGER IN R3 
'-•READ 2ND INTEGER OF .TRACK. INF O . 

*ECHO CHAR 

”*GET TRACK INFO. IN - BINARY 


*I2<77 ? 

_*I£S ______ - 

*N0, GO TO PRINT COMMAND FORMAT ERROR 


DETECT CR 8 GENERATE LF 
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691 

00553 

6 37001 

4 

XMIT POINT, G6 

’'STORE RETURN JUMP INDEX IN G6 

691 

00554 

7 01511 

4 

JMP DCRGLF 

*G0 TO 2ND LEVEL SUBROUTINE 

691 



4 

GRG RTN24P0INT43 

* INSERT THE NEXT INSTR. IN RETURN TABLE 

691 

00053 

7 00555 

4 

JMP CRSK+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 

691 



4 

ORG CRSK+3 


692 



it 



693 

00555 

6 11066 


CALL SEL DR 

^PHYSICALLY SEL DRIVE ACCORDING TO STATUS 


00556 

7 02612 




... 69.4 

.00557.. 

4 06164 ... 


XEC TABL1 (R6) 


695 

00560 

0 05130 


MOVE R5,1,RB0 

*UPDATE SIDE INFO IN CURRENT TRACK REG. 

696 

00561 

6 11067 


CALL SEEK 

*G0 TO SEEK SUBROUTINE 


00562 

7 02705 




697 

00563 

7 00240 


JMP OK 

*G0 TO PRINT OK ROUTINE 

698 

00564 

6 17110 

TABL1 

SEL CTR1 


_ 699 

00565 

6 17111 


SEL CTR2 _ ... _ _ 


700 



it it it it it it it it it it it it it it it it it it it it it it it it it it it 

it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 

701 



it 


it 

JQZ _ 



* READ STATUS 

it 

703 



* THIS ROUTINE PRINT HEXIDECIMAL CONTENT OF ALL 8X330 REGISTERS * 

704 



* RS 

CR 

it 

7QS 



it 


it 

706 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it i: it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 

707 



RS 

CALL2 DCRGLF, CRRS 

*DETECT CR AND GENERATE LF 

707 



Ht 



707 

00566 

6 17127 

+CRRS 

SEL G6 


707 


000002 

+POINT 

SET POINT+1 


7Q7 

nns67 

6 3700? 

4 

XMIT POINT, G6 

••STORE RETURN JUMP INDEX IN G6 

707 

00570 

7 01511 

4 

JMP DCRGLF 

*G0 TO 2ND LEVEL SUBROUTINE 

707 



4 

ORG RTN2+P0INT+3 

*INSERT THE NEXT INSTR. IN RETURN TABLE 

707 

nnnsA 

7 00571 

4 

JMP CRRS+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 

707 



4 

ORG CRRS+3 


708 



it 



7Q9 

Q0571 

6 Qff36Q 


XMIT 377H-1 7H,R2 

* COUNT THE NO. OF STATUS REG. 

710 

00572 

6 03110 


XMIT 1 1 0H, R3 

*LOAD STARTING ADDRESS OF STATUS REG. 

711 

00573 

6 04040 

J39 

XMIT 3L,R4 


71? 

00574 

6 1 1Q70 


CALL TTYWR 

"PRINT ONE BLANK CHAR. 


00575 

7 P<356 




713 

00576 

0 03017 


MOVE R3,IVR 

^SELECT STATUS REG. 

714 

00577 

6 11071 

X2 

CALL BHH 

"CONVERT BINARY TO 2 HEX CHAR. 


00600 

7 02451 




715 

00601 

6 11072 


CALL TTYWR 

"PRINT MOST SIGN. HEX CHAR. 


00602 

7 02356 




716 

00603 

0 05004 


MOVE R5,R4 


717 

00604 

6 11073 


CALL TTYWR 

’-PRINT LEAST SIGN HEX CHAR 


00605 

7 




718 

00606 

6 00001 


XMIT 1B,AUX 


719 

00607 

1 03003 


ADD R3,R3 

"INCR. STATUS REG. ADDRESS 

720 


■ ■iniulKMH 


vt iW *yj| >>■ 

MECR. NQ. QF STATUS REG. LEFT 

721 

00611 

5 02221 


NZT R2, J 41 

"DONE WITH 16 STATUS REG. ? NO, GO TO J41 

722 

00612 

6 04015 


XMIT CR,R4 

"YES 

723 

00613 

6 11074 


CALL TTYWR 

'-•GENERATE CR 


00614 

7 02356 




724 

00615 

6 04012 


XMIT LF,k*+ 


.725_ 

00616 

h 11075 


CALL TTYWR 

"GENERATEJJE 
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00617 7 02356 

726 00620 7 00240 

72 7 00621 6 00370 

J41 

JMP OK 

XMIT 377H-07H,AUX 

*G0 TO PRINT OK ROUTINE 

728 00622 3 02000 

729 00623 5 00227 

730 00624 6 Q4Q4Q 


XOR R2,AUX 
NZT AUX,K1 
XMIT BL,R4 


731 00625 6 11076 

00626 7 02356 
232—J3Q627 7 00573 _ . 

K1 

CALL TTYWR 

JMP J39 

*PRINT ONE MORE BLANK AFTER 8 HEX PAIRS. 

733 

734 

735 

ft it ft ft it it iV it ☆ it it ft £ it it it it ft ft it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 

it it : 

* WRITE STATUS * 

736 

737 

738 

* THIS ROUTINE SET NEW CONTENT OF 8X330 INTERNAL REGISTERS * 

* WRITE STATUS COMMAND CAN BE TERMINATED BY CR * 

☆ 

739 

740 00630 6 37011 

it it it it it it it it it it it it it it it it it it it it it it it it it it it it it ititit it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 

WS XMIT WSP$,PS ^UPDATE COMMAND CODE IN PROGRAM STATUS REG 

_ . . XMIT CR,R4 

742 00632 6 11077 
00633 7 02356 


CALL TTYWR 

XMIT Lf ,R4 

*PRINT CR 

744 00635 *6 11100 

00636 7 02356 

745 00637 602110 


CALL TTYWR 
XMIT 11QH,R2 

*PRINT LF 

*LOAD STARTING ADDRESS OF STATUS REG. 

746 00640 6 11101 

00641 7 02302 

747 0064? 6 11102 

J44 

CALL TTYRE 
CALL TTYWR 

*ECHO 1ST CHAR. 

00643 7 02356 

748 00644 6 00040 

749 00645 3 Q4QQQ 


XMIT BL,AUX 
XOR R4,AUX 


750 00646 5 00250 

751 00647 7 00640 

752 00650 6 00015 

J45 

NZT AUX,J45 
JMP J44 
XMIT CR,AUX 

*BLANK CHAR.? 

*YES, GO BACK TO READ 1ST CHAR. AGAIN 
*N0 

753 00651 3 04000 

754 00652 5 00254 


XOR R4,AUX 
NZT AUX,J46 
JMP OKI 

*CR? 

AYES, GO TO PRINT OKI ROUTINE 

756 00654 0 04003 

757 00655 6 1110.^ 

00656 7 i' 2302 

J46 

MOVE R4,R5 
CALL TTYRE 

*N0 

758 00657 6 11104 

00660 7 02356 

759 00661 6 11105 ... 


CALL TtYWR 

CALL HHB 

*ECHO 2ND CHAR 
‘"CONVERT 2 FEX TO BINARY 

00662 7 02503 

760 00663 0 02017 

761 00664 0 04037 

.. XI 

MOVE R2/IVR 

. J1GVE .84,16 

^ADDRESS STATUS REG. 
.... *LQAD ..STATUS MG . 

762 00665 6 00001 

763 00666 1 02002 

764 00667 6 00137 


XMIT 1,AUX 
ADD R2/R2 
XMIT 137H,AUX 

*INCR. STATUS REG. ADDRESS 

765 00670 3 02000 

766 00671 5 00273 


XOR R2/AUX 
NZT AUX,*+2 
JMP *+2 

*LAST STATUS REG.? NO, GO TO J44 
*Y£S, GO TO PRINT OKI ROUTINE 

768 00673 7 00640 

769 00674 7 00260 
ZZ£L _ - 

it 

JMP J44 
JMP OKI 
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771 

772 

m 

774 

775 
lit. 


777 

778 


it fr f x it »V frfr fr flrfrfrf? fr fr fr fr * it it it it it it it it it it it it fr * fr it it it i: it it it it & it is it it it it it it it it it it it it it it it it it it it 

it 

fr i 

* READ BUFFER COMMAND* DUMP OUT THE CONTENT OF BUFFER TO CRT * 

JLW CJS * 


it it 

it it 

it it it it it it it fr it is it it it it it it it it it it it it it it it it it it it it it it it it it it it it is is it it it it it it is it it it it it it it it it it it it it it i • 


780 

781 

00675 

00676 

00677 

6 37014 
6 11106 

RBA XMIT RBPS,PS 
CALL TTYRE 

^UPDATE COMMAND CODE OF THE PROG STATUS REG 

782 

00700 

6 11107 

CALL TTYWR 

*ECHO CHAR. 


00701 

7 02356 



.753 

0070? 

6 00040 

. XMIT BL,AUX 


784 

00703 

3 04000 

XOR R4,AUX 


785 



ORG 3/256 


786 

00704 

5 00306 

NZT AUX # *+2 

*BLANK? 

787 

00705 

7 00675 

JMP RBA 

*YES/ GO TO RBA 

788 

00706 

6 00015 

XMIT CR/AUX 

*N0 

786 

00707 

3 04000 

XOR R4/AUX 


790 



ORG 7/256 


791 

00710 

5 00275 

NZT AUX/RBA 

*CRT CR? NO/ GO TO RBA 


KTifZTB 


M ill PI i 


793 

00712 

6 04012 

XMIT LF/R4 


794 

00713 

6 11110 

CALL TTYWR 

’■OUTPUT CRT LF 


00714 

7 02356 



795 

00715 

6 00000 

LRBA2 XMIT OB/AUX 


796 

00716 

6 17116 

SEL BA 


707 

00717 

0 00037 

MOVE AUX/BA 

’•CLEAR BUFFER ADDRESS REG 

798 

00720 

6 17125 

SEL G4 


799 

00721 

0 00037 

MOVE AUX/G4 

*CLEAR PRINT ADDRESS REG. 






601 

00723 

6 03375 

XMIT 377H-2/R3 

*LOOP COUNT FOR 3 8-HEX PAIRS GROUP/LINE 

802 

00724 

6 11111 

CALL BHH 

*PRINT HEX ADDRESS STORED IN G4 



■ ■II II — 



803 

00726 

6 11112 

CALL TTYWR 

*PRINT 1ST HEX ADDRESS 


00727 

7 02356 



804 

00730 

0 05004 

MOVE R5/R4 


ms 

00731 

6 11113 

CALL TTYWR 

’•PRINT 2ND HEX ADDRESS 


00732 

7 02356 








807 

00734 

6 11114 

CALL TTYWR 



00735 

7 02356 



808 

00736 

6 04040 

XMIT 1 ' zR4 


809 

00737 

6 11115 

CALL TTYWR 

*PRINT 2 BLANKS 


00740 

7 02356 



810 

00741 

6 11116 




00742 

7 02356 



811 

00743 

6 17116 

LR82 SEL BA 


81? 

00744 

0 37007 

MOVE BA/IVL 

. *SET UP BUFFER ADDRESS 

813 

0074: 

6 17124 

SEL G3 


814 

00746 

0 27037 

MOVE LB/G3 

’•SET UP BUFFER DATA FOR BHH 


0Q74Z- 

6 UllI 

CALL BHH 

^CONVERT DATA.. INTO 2 HEX CHAR. _ _ 
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00750 7 02451 

00751 6 11120 


817 00753 0 05004 

818 00754 6 11121 

819“0G?56~ 6 04040 
820 00757 6 11122 


821 00761 

822 00762 

-823 007.6 3 

824 00764 

825 00765 

82 6 QQ766 

827 00767 

828 00770 
00771 


830 00772 

831 00773 




833 00775 
00776 

8 34 -002 7 1. 

835 01000 

836 01001 


838 01003 

839 01004 




841 01006 

842 01007 


6 17116 
6 00001 
1 37037 

6 00377 
1 06006 

.3 0.6370. 

7 00260 
6 00001 
1 02002 


5 10374 
7 00743 
A 04040 


6 11123 

7 02356 
6 QQQQ1 
1 03003 
5 10004 


7 00743 
6 17125 
a nnnxn 


1 37037 
7 00722 


CALL TTYWR 

MOVE R5#R4 
CALL TTYWR 

XMIT ' '/R4 
CALL TTYWR 

LRB5 SEL BA 

XMIT 1/AUX 

AM BArBA 

XMIT -1,AUX 
ADD R6/R6 

N2T R6,»+2 

JMP OKI 
XMIT 1,AUX 
ADD R2.R2 


NZT 0VF/LRB3 
JMP LRB2 

• i 


wtKbwmw 


*PRINT 1ST HEX DATA 


*PRINT 2ND HEX DATA 


*PRINT BLANK 


CALL TTYWR 


ADD R3,R3 
NZT 0VF/LRB4 


JMP LRB2 
LRB4 SEL G4 




ADD G4/G4 < 

JMP LRB1 

-V & Vc V- is it it 

ft it 


*INCR. LOCATION COUNT. 

*DONE FOR ALL LOCATIONS? 

*YES, GO TO PRINT OK ROUTINE 

*N0 

*INCR. HEX PA 


*HEX PAIR COUNT >8? YES/ GO TO LRB3 
*N0 


*PRINT BLANK 


*INCR. HEX GROUP COUNT 

*HEX GROUP =3? YES/ GO TO LRB4 

* 


^UPDATE PRINT ADDRESS 



850 

851 01010 
AS2 oioi i 


853 01012 
01013 
. 85 4 Q 101 4 
855 01015 
01016 

-856 

857 
857 
R57 ; 


857 

857 01020 


‘ICTJWIliiWl 


6 37015 
6 04015 


6 11124 

7 02356 
6 04012 

6 11125 

7 02356 


000003 
6 37003 


itftitftft^ftftirisftieitititikitititftfcitititiritititit 

WB XMIT WBPS/PS *UPDATE COMMAND CODE IN PROG STATUS REG. 




CALL TTYWR 


CALL TTYWR 


CALL2 WRBUF/LL5 


+POINT SET POINT+1 
+ XMIT P0INT/G6 




’•GENERATE CR 


^GENERATE LF 


*2ND LEVEL SUBROUTINE TO WRITE BUFFER 


’•STORE RETURN JUMP INDEX IN G6 
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857 



4- 

ORG RTN2+P0INT+3 

^INSERT THE NEXT INSTR. IN RETURN TABLE 


857 

00055 

7 01022 

4 

JMP LL5+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 


857 



4 

ORG LL5+3 



858 



☆ 




859 

01022 

7 00260 


JMP OKI 

*G0 TO PRINT OK ROUTINE 


860 



☆ 




861 



* 




862 



☆ 




863 



☆ ☆ * it * it * * it it it ☆ * it it it it ☆ it it 't it * it it it it * it it it 


864 



uSr 


* 


865 



* COMMAND RI 

* 


866 



* 


* 


867 



it it it it it 

************************** 


868 



ift 




869 



it,, 




870 

01023 

6 37006 

RI 

XMIT RIPS, PS 

*UPDATE COMMAND CODE IN PROG. STATUS REG. 


871 



* 




872 




CALL2 DCRGLF.C4 

*D£TECT CR AND GENERATE LF 


872 



4* 




872 

01024 

6 17127 

+C4 

SEL G6 

0 


872 


000004 

♦POINT 

SET POINT +1 .. 



872 

01025 

6 37004 

4 

XMIT POINT, G6 

*STORE RETURN JUMP INDEX IN G6 


872 

01026 

7 01511 

4 

JMP DCRGLF 

*G0 TO 2ND LEVEL SUBROUTINE 


872 



4 

ORG RIN2+PQINT+3 

* INSERT THE NEXT INSTR. IN RETURN TABLE 


872 

00056 

7 01027 

4 

JMP C4+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 0 


872 



4 

ORG C4+3 

0 


873 



it 




874 

01027 

6 17116 


SEL BA 



875 

01030 

6 37000 

, 

XMIT 0,BA 

’•START BUFFER ADDRASS=0 




6 11126 


■■MIWJJ IJ— 

— II 1 1 II W 1 i J ag;7i!M»T 



01032 

7 03072 





877 

01033 

6 17112 


SEL PHS1 








f.l liKfl iillliiv r| vHHHHHHIi 


879 

01035 

6 11127 

J 1 42 

CALL PREAM 

*I.D. PREAMABLE SEARCH SUBROUTINE 



01036 

7 03167 

. 






6 17114 





881 




ORG 1 ',32 



882 

01040 

4 36206 


XEC C14(M0DU) 





6 17113 

J144 




884 


001041 

MDERR 

SET J144 



885 

01042 

6 35101 


XMIT 1 ,PHS25 

♦ERROR NOT USED FORMAT 




6 17112 





887 

01044 

6 37000 


XMIT 0,PHS1 



888 

01045 

7 00305 


JMP CERR 



889 


■ iiHillM 

C14 

BFIII SBP4 

*DD 


890 

01047 

7 01041 


JMP J144 

♦NOT USED FORMAT 


891 

01050 

7 01067 


JMP J145 

*SD 




MVli Il'CTMII 


JMP J.144 



893 

01052 

6 11130 

J 1 43 

CALL AMDI 

♦LOOK FOR DOUBLE DENSITY I.D. AM 



01053 

7 03254 







6 11131 _ 


CALL RI1 

SSEp^Ej *( 7.1 V 91 ij.i V: V HI - 1 II 2f 2 a 



01055 

7 03353 





895 

01056 

6 00000 


XMIT 0,AUX 



896 

01057 

o i fin o 


XOR R1.AUX 
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897 

01060 

5 00035 


NZT AUX/J142 

*IF BUFFER NOT FULL, READ NEXT ID 


898 

01061 

6 17134 


SEL DRSEL 

*YES, BUFFER IS TULL 


899 

01062 

6 33200 


XMIT Q, DRSEL 

*D*PHYS DR. DESELECT 


900 

01063 

6 06000 


XMIT 0H,R6 

*SET UP 256 LOCATIONS FOR PRINTING 


901 

01064 

6 17112 


SEL PHS1 



502 

Q1Q65 

6 37000 


XMIT Q f PMS1 

*.CLEAR PHS1 


903 

01066 

7 00715 


JMP LRBA2 

*G0 TO PRINT HEX ROUTINE 


904 

01067 

6 11132 

J145 

CALL AMS I 

*LOOK FOR SINGLE DENSITY I.D. AM 



Q1Q7Q 

7 03316 





905 

01071 

7 01054 


JMP J146 



906 



*END i 

OF READ IDENTIFIER 

COMMAND 


.. 907 



it 

*t 



908 



it 




909 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it * V it it it it it it it it 


_ 910 



it 


it 


911 

- 


it 


it 


912 



*READ 

HEX COMMAND 

it 


913 



... if 


it 


914 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


915 

01072 

6 17115 

RH 

SEL PS 



. 916 


■ ■ II 1 1 — 



I] J >7:1 tf S K« lu l L U k 1 >1 till >1 li ■ J iJilefwi V.V fel kl II 


917 



it 




918 




CALL2 BICRLF/LL1 

*2ND LEVEL SUBROUTINE TO READ SECTOR NO. 


918 



4 it 




918 

01074 

6 17127 

+LL1 

SEL G6 



918 


000005 

+P0INT 

SET POINT+1 



918 

01075 

6 37005 

4 

XMIT POINT, G6 

*STORE RETURN JUMP INDEX IN G6 


918 

01076 

7 01470 

♦ 

JMP BICRLF 

*G0 TO 2ND LEVEL SUBROUTINE 


918 



„ 4 

ORG RTN2+P0INT+3 

*INSERT THE NEX" INSTR. IN RETURN TABLE 


918 

QQQ57 

_7_01O77_ 

4 

JMP LL1+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 


918 



4 

ORG LL1+3 



919 



it 





Mima 

KwfMRi 



■H m 2 1\ 3 JJ ;U i Ci] l Kill -T :I*Hi i 1 2 1 :■ !•] J to J ifl if A ! ■(IJHHI 



01100 

7 03072 





921 



it 




922 




CALL2 DATR.JL7 

*2ND LEVEL SUBROUTINE TO READ DATA FR. DISK 


922 



4 £ 




' 922 

01101 

6 17127 

+JL7 

SEL G6 



922 


000006 

. +P0INT 

SET POINT+1 



922 

01102 

6 37006 

4 

XMIT P0INT,G6 

*STORE RETURN JUMP TnDEX IN G6 


922 

01103 

7 01526 

4 

JMP DATR 

*G0 TO 2ND LEVEL SUBROUTINE 0 


922 



4 

ORG RTN2+P0INT+3 

* INSERT.. THE NEXT INSTR. IN RETURN TABLE 


922 

00060 

7 01104 

4 

JMP JL7+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 


922 



4 

ORG JL7+3 



923 



- ☆ 




924 

01104 

6 17116 

RH4 

SEL BA 



925 

01105 

6 00001 


XMIT 1 ,AUX 



926 

01106 

1 37006 


ADD BA*R6 

*SET UP FOR 256 OR 128 LOCATIONS 


927 

01107 

7 00715 


JMP LRBA2 

*G0 TO READ BUFFER SEGMENT 


928 



*END i 

OF READ HEX COMMAND 



929 



it 




930 



it 




931 



it 




932 


000010 

CRA 

SET Q1QH 

^*010H FOR SOROC • CBA S 104H FOR TWINa 


■ 
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933 000014 

934 

.235. 

936 

937 

_saa 

939 

940 

.241 

942 

943 

944 

“945 OHIO 6 37003“ 

946 

947 


947 

947 01111 6 17127 


CFO SET 014H *=014H CFOR SOROC. CF0*103H FOR TWIN 

it it ☆ it it it it it it it iBr i*r it ☆ it ☆ it iSr it it it it it it it * * & it V-r iV * * it ☆ & * V-r iSr * iV * Vr *,V * * v 

* ^ J* 

☆ ^ * ~ 

* READ ALPHA-NUMERIC * 

_*_SA 12 L8 * 

* THIS ROUTINE TRANSMIT 256 CHAR TO TERMINAL * 

* * 

Jr * 

☆ ☆ it it it it ☆ ☆ it it it it it it it it it it * it it it ☆ it it it it it ☆ * ☆ it ☆ * * ☆ ☆ ☆ V? tV it it it Vc * * 


XMIT RAPS, PS 




PZTJ 


iniiiuini 


+* 

+LL3 SEL G6 





951 

951 
251_ 

952 

953 


00061 7 01114 


01114 6 11134 

01115 7 03072 


000010 
01117 6 37010 


00062 7 01121 


01121 6 01000 


XMIT P0INT,G6 
JMP BICRLF 




01123 

01124 




01126 

01127 


0 01007 
0 27004 
6 11135 


7 02356 
6 00001 


► JMP LL3+3 

*■ ORG LL3+3 

_* 

CC4 CALL PREP 


CALL2 DATR,JL4 


+POINT SET POINT+1 
+ XMIT POINT, G6 

JMP DATR 


+ ORG RTN2+P0INT+3 

+ JMP JL4+3 

_+ _ O R G JL 4 t 3 

* 

J56 XMIT 0,R1 

XMIT BL. 


J57 MOVE R1,IVL 
MOVE LB,R4 


MMqnttim 


*UPDATE COMMAND CODE IN PROG. STATUS REG. 

D SECTOR NO 




*STORE RETURN JUMP INDEX IN G6 
*G0 TO 2ND LEVEL SUBROUTINE 




*2ND LEVEL SUBROUTINE RETURN JUMP 


*PREPARATION SUBROUTINE FOR FLOPPY R/W OP. 


*2ND LEVEL SUBROUTINE TO READ DATA FR. DISK 


*STORE RETURN JUMP INDEX IN G6 




^INSERT THE NEXT INSTR. IN RETURN TABLE 
*2ND LEVEL SUBROUTINE RETURN JUMP 




XMIT 1 ,AUX 




*R1=BUFFER ADDRESS POINTER 
*STORE BLANK CHAR. CODING IN R5 


^ADDRESS BUFFER 

*LOAD CONTENT OF R4 INTO CRT 




P i TMA'l »];( lul 


960 

961 

01131 

01132 

6 00200 
6 17114 

XMIT 1 28,AUX 
SEL MODU 

*128 BYTES FOR S.D. 

962 

rinui 


mi w\m ii — 


963 

964 

01134 

01135 

6 00000 
3 01002 

XMIT 0,AUX 
XOR R1,R2 



rAWlii ETH 


01137 

01140 


7 00260 
6 00015 






JMP OKI 
XMIT CR,AUX 


vMiwwnin 


I m k'ivii ■•■Ji mm vm 1 


*YES, GO TO PRINT OK ROUTINE 
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969 01142 

970 01143 

971 01144 

5 02146 
3 05002 
5 02146 


NZT R2,J59 
XOR R5,R2 
NZT fi2,J59 

*R4=CR? NO, GO TO J59 
*YES 

*2 CONSECUTIVE Cfi'S? NO, GO TQ. J59 .... 


972 

973 

974 

01145 

01146 

01147 

7 00260 
0 04005 
7 01123 

J 59 

JMP OKI 
MOVE R4,R5 
JMP J57 

*YES, GO TO PRINT OK ROUTINE 
*STORE ADDRESSED BUFFER CONTENT IN R5 
*G0 BACK TO READ NEXT BUFFER LOCATION 


975 



vV 




976 



* 




977 



it 




978 


000101 

CUP 

SET 1 01 H 

’■CURSOR UP CODING FOR tWINS CRT 


979 



ititititititititititititititititit it it it it it it it it it it it it it it it it it it it it it it it it 


980 



it 


it 


981 



* READ ALPHA OF NEXT SECTOR * 

... 

982 



* NT 


it 


983 



* THIS ROUTINE TRANMITS 

256 CHAR. ON CRT* 


984 



it 


it 


985 



itititititititititititititititititititititititititititititititititititititiiititit 


986 _ 

Q1150 

6 17114 . 

NT 

SEL STA 



987 

01151 

6 00017 


XMIT 15/AUX 



988 




ORG 3.32 



989 

01152 

5 33114 


NZT STA3,NT1 

*26 SECTORS? NO. GO TO NT1 


990 

01153 

6 00032 


XMIT 26,AUX 

*YES 


991 

01154 

6 17117 

NT1 

SEL SS 



99? 

01155 

3 37500 


XOR SS,5,AUX 



993 

01156 

5 00161 


NZT AUX/NT2 

*LAST SECTOR? NO, GO TO NT2 


994 

01157 

6 00000 


XMIT OH,AUX 

*YES 


995 

01160 

0 00037 


MOVE AUX,SS 



996 

01161 

6 00001 

NT2 

XMIT 1 ,AUX 



997 

01162 

1 37037 


ADD SS,SS 

*INCR. STARTING SECTOR NO. 


998 

01163 

6 04015 


XMIT CR,R4 



999 

01164 

6 11136 


CALL TTYWR 

*PRINT CR 



01165 

7 02356 





1000 

01166 

6 04040 


XMIT BL,R4 



1001 

01167 

6 11137 


CALL TTYWR 

*PRINT BLANK CHAR. 



01170 

7 02356 





1002 

01171 

6 04033 


XMIT ESC.R4 



1003 

01172 

6 11140 


CALL TTYWR 

*PRINT ESC CHAR. 



01173 

7 02356 





1004 

01174 

6 04101 


XMIT CUP* R 4 



1005 

01175 

6 11141 


CALL TTYWR 

*MOVE CORSOR UP 



01176 

7 02356 





1006 

01177 

6 04015 


XMIT CR,R4 



1007 

01200 

6 11142 


CALL TTYWR 

Generate cr 



01201 

7 02356 





1008 

Q12Q2 

6 04040 


XMIT BL,R4 



1009 

01203 

6 11143 


CALL TTYWR 

’•PRINT BLANK CHAR. 



01204 

7 02356 





1010 

01205 

6 04040 


XMIT BL,R4 



1011 

01206 

6 11144 


CALL TTYWR 

*PRINT BLANK CHAR 



01207 

7 02356 





101? 

Q1210 

6 04015 


XMIT CRj.fi 4 



1013 

01211 

6 11145 


CALL TTYWR 

’•GENERATE CR 



01212 

7 02356 





mu 

01213 

,6 171J5- 


SEL. PS 





PROG FDC 


MICROCONTROLLER CROSS ASSEMBLER VER 2.0 


PAGE 23 


1015 01214 6 00005 

1016 01215 3 37500 

1018 01217 5 00221 

1019 01220 7 01244 

1021 

1022 

JLQ23 

1024 

1025 




1033 

1033 01225 

T 


1033 

1033 00063 

1033 

1034 

1035 


1035 01227 
1035 

1035 0 1 230 
1035 01231 
1035 


000011 
6 37011 


UtCTiU 


7 01221 


6 17127 
000012 

6 3 7 Q.12. 

7 01424 


XMIT 5,AUX 
XOR PSCC^AUX 

MflV£JLUX,AilX 

NZT AUX/CGE3 
JMP WA1 


*NQP 

*WRITE ALPHA OF NEXT SECTOR? 
*YES 


itititit it it it it it it i t it it it it it it it it it it it it it it it it it it ft ft ft ft ft ft ft ft /V ft ft 

IT * 

* COMMAND WRITE SECTOR HEX * 

* UH 12 (SECTOR MO.) CR * 


1027 

1028 
1029 



☆ 

ftftftftftft 

ft 

• it it it it it it it it it it it it it it it it it it ft 

it 

r it it it it it it it it it it it it it it it it 



1030 01222 

6 

17115 

WH 

SEL PS 




1031 01223 

1032 

6 

37004 

it 

XMIT WHPS,PS 

*UPDATE COMMAND CODE IN PROG. 

STATUS 

REG. 

1033 



WH1 

CALL2 8ICRLF,LL4 

*2ND LEVEL SUBROUTINE TO READ 

SECTOR 

NO. 0 

1033 

. L 

.1.7.322 

+* 

+LL4 

££L_£6 





+P0INT SET POINT+1 
+ XMIT P0INT/G6 

+ .IMP BTCRI F 


+ ORG RTN2+POINT+3 

* JMP LL4+3 

_± QRGJLU+.3 

ft 

CALL- WRBUF,JL5 

_+* 

+JL5 SEL G6 

+P0INT SET POINT+1 

J: XMIT PQI N T,G6 

+ JMP WRBUF 

+ OPG "TN2+POINT+3 


ORG JL5+3 
CALL PRFP 


01233 703072 


+ST0RE RETURN JUMP INDEX IN G6 




*INSERT THE NEXT INSTR. IN RETURN TABLE 
*2ND LEVEL SUBROUTP 1 '! RETURN JUMP 


*WRITE DATA FROM CRT TO BUFFER 


*STQRE RETURN JUMP INDEX IN G6 

*G0 TO 2ND LEVEL SUBROUTINE 
*INSERT THE NEXT INSTR. IN RETURN TABLE 
*2NP LEVEL SUBROUTINE RETURN JUMP 


FOR FLOPPY R/W OP. 


1039 

1039 01234 6 17127 


1039 01235 6 37013 
1039 01236 7 02034 

_1032 

1039 00065 7 01237 

1039 

104 0 

1041 01237 7 00260 

1042 

1043. — 


SEL G6 

XMIT P0INT/G6 
JMP DATW 

.flftfi RTN2+PQIN 1 

JMP JL6+3 
ORG JL6+3 

JM? OKI 


*STORE RETURN JUMP INDEX IN G6 
*G0 TO 2ND LEVEL SUBROUTINE 
^INSERT THE NEXT INSTR. IN RETURN LABLE_ 
*2ND LEVEL SUBROUTINE RETURN JUMP 


*G0 TO PRINT OK ROUTINE 
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1044 * 

1045 * 


1Q4& - ft * ft & jr, ft ft ft ft ft ftft ft ft ft ft 1 ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 


1047 



ft 


ft 


1048 



ft 


ft 


104$ 



* WRITE ALPHANUMERIC 

ft 


1050 



* WA 

12 CR 

ft 


1051 



* THIS COMMAND WILL BE 

ft 


1052 



ft TE:RM,I.hl,AT.C.D BY 2! CONSECUTIVE ft 


1053 



CR’ 

S OR 256 INPUT CHAR. 

ft 


1054 



ft 


ft 


1055 



ft 


ft 


1056 



ft ft ft ft ft ft ft ft' ft ft ft ft ft ft "ft ft ft ft ft ft ft ft ft' ft' ft ft ft 'ft ft ft' ft ft 


1057 

Oi '*0 

6 37005 

WA 

XMIT WAPS, PS 

* UPDATE COMMAND CODE IN PROG. STATUS REG. 


1058 



ft 




1059 




CALL2 BICRLF/J J1 

*2ND LEVEL SUBROUTINE TO INPUT SECTOR NO. 


1059 



+ ft 




1059 

01241 

6 17127 

+JJ1 

SEL G6 



1059 


000014 

+P0INT 

SET POINT+1 



1059 

01242 

6 37014 


XMIT POINT, G6 

*STORE RETURN JUMP INLEX IN G6 


1059 

01243 

7 01470 

+ 

JMP BICRLF 

*G0 TO 2ND LEVEL SUBROUTINE 


1059 



ft 

ORG RTN2+P0INT+3 

*INSERT THE NEXT INSTR. IN RETURN TABLE 


1059 

00066 

i 01244 

ft 

JMP JJ1+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 


1059 



ft _ 

ORG JJ1+3 



1060 



ft 




1061 

01244 

6 01000 

WA1 

XMIT 0,R1 

*CLEAR BUFFER ADDRESS POINTER 


1062 

01245 

6 05040 


XMIT BL,R5 



1063 

01246 

6 11147 

J61 

CALL TTYRE 




01247 

7 02302 





3£| 


■ ■llli — 

J65 





01251 

7 02356 





1065 

01252 

0 01007 


MOVE R1,IVL 

*ADDRESS BUFFER 


1066 

01253 

0 04027 


MOVE R4*LB 

*LOAD DATA FROM CBT TO BUFFER 


1067 

01254 

6 00015 


XMIT CR,AUX 



1068 

01255 

3 05002 


XOR R5,R2 

^COMPARE PREVIOUS CRT INPUT WITH CR. 


1069 

01256 

0 04005 


MOVE R4.R5 

*STORE CURRENT CRT INPUT IN R5 


1070 




ORG 5,256 

V 


1071 

01257 

5 02263 


NZT R2,J67 

^PREVIOUS CRT INPUT=CR? NO, GO TO J67 


mmmfm 




XC/R R4*R2 

*YES, COMPARE CURRENT CRT INPUT WITH CR 


1073 

01261 

5 02263 


NZT R2,J67 

*CURRENT CRT INPUT=CR? NO, GO TO J67 


1074 

01262 

7 01270 


JMP J 601 

*YES, DONE WITH WR ALPHA INTO BUFFER 


wmmiuM 


■ ■1 III — 

J67 




1076 

01264 

1 01001 


ADD R1,R1 

*INCR. BUFFER ADDRESS 


1077 

01265 

5 01267 


NZT R1,*+2 

^BUFFER FULL? NO, GO TO READ NEXT CHAR. 


mmcnnm 


Will Hi — 





1079 

01267 

7 01246 


JMP J61 

*G0 TO READ NEXT CHAR. 


1080 

01270 

6 11151 

J601 

CALL PREP 

*PREPARATION SUBROUTINE FOR FLOPPY R/W OP. 



01271 

7 03072 





1081 



ft 




1082 




CALL2 DATW,J302 

*2ND LEVEL SUBROUTINE TO WRITE DATA ON DISK 


1082 



ftft 




1082 

01272 

6 17127 

+J302 

SEL G6 



1082 


000015 

+P0INT 

SET POINT+1 




will 
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1082 

01274 

7 02034 

* 

JMP DATW 

*G0 TO 2ND LEVEL SUBROUTINE 0 


1082 



♦ 

0R6 RTN2+POINT+3 

^INSERT THE NEXT INSTR. IN RETURN TABLE 


1082 00067 7 01275 


JMP J302+3 

☆2ND LEV£L subroutine return jump 


1082 



+ 

ORG J302+3 



1083 



☆ 




1084 

01275 

? 00260 


JMP OKI 



1085 



iritis itit it it it it it ☆ * it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


1086 



it 


it 


1087 



is 


it 


1088 



*COMMAND WR 

it 


1089 



it 


it 


1090 



it 


is 


1091 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it is it it it 


1092 

01276 

6 37012 

WR 

XMIT WRPS,PS 

*UPDATE COMMAND CODE IN PROG. STATUS REG. 



01277 

6 11152 


CALL RDMBUF 

*FILL BUFFER WITH RANDOM DATA 



01300 

7 02543 





1094 

01301 

7 01303 


JMP J600 

*G0 TO J600 (TEST MEDIA) 


1095 



it 




1096 



it 




1097 



it 




1098 



ink 




1099 



it it it it it it it it it it it it it it it it it it iris it it it it it it 

☆ it it iritis it itit it it it it is it 


1100 



it 


it 


1101 



it 


is 


1102 



*COMMAND TEST MEDIA 

it 


1103 



it 


;V 


1104 



is 


it 


1105 



itis 'it itititit iritis it it it it it it it it it it it it it it it it it it it ititititis it it it it it it it 


1106 

01302 

6 37007 

TM 

XMIT TMPS/PS 

^UPDATE COMMAND CODE IN PROGRAM STATUS REG. 


1107 

01303 

6 11153 

J6QG 

CALL PREP 

^PREPARATION SUBROUTINE FOR FLOPPY R/W OP. 



01304 

7 03072 





1108 

01305 

6 17125 


SEL G4 



1109 

01306 

6 37000 __ 


XMIT Q,G4 

*SET MEDIA CNT=G4=Q 


1110 

01307 

6 17114 

J254 

SEL STA 



i m 




ORG 5,32 



1112 

01310 

4 36211 


XEC *+1 (MODU) 

*G0 TO ADDR UPDATE ACC MEDIA. TYPE 


1113 

01311 

7 01315 


JMP J240 

*DD 


1114 

01312 

7 01041 


JMP J144 

*G0 TO PRINT NOT USED FORMAT ERROR 


1115 

01313 

7 01315 


JMP J240 

»SP 


1116 

01314 

7 01041 


JMP J144 

*G0 TO PRINT NOT USED FORMAT ERROR 


1117 

01315 

6 17117 

J240 

SEL SS 



1118 

01316 

6 00001 


XMIT 1,AUX 



1119 

0 1 317 

1 37037 


ADD SS,SS 

*INCR. SECTOR NO. 


1120 

013*0 

6 17114 


SEL STA 



11?1 

01321 

4 53124 


XEC HKSTA3) 

*GET NO. OF SECTORS/TRACK INFO FROM STATUS 


1122 

01322 

6 17117 


SEL SS 



1123 

01323 

7 01326 


JMP H2 



11?4 

01324 

6 00345 

HI 

XMIT 255-26,AUX 



1125 

01325 

6 00360 


XMIT 255-15, AUX 



1126 

01326 

1 37000 

H2 

ADD SS,AUX 

*INCR. SECTOR NO. 


1127 

01327 

5 1033.1 


N2T 0VF,J241 ... 

*PONE WITH ALL SECTORS IN C. TRACK? YES, 


1128 

01330 

7 01375 


JMP J248 

*N0, GO TO READ 


1129 

01331 

6 37001 

J 241 

XMIT 1,SS 

^STARTING SECTOR ON TRACK 


1130 



^CHANGE Qf SIDE QR POSITIONING . _ _ . 
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1131 

1132 
1133 

01332 

01333 

01334 

6 17114 
5 3213? 

7 01344 


SEL STA 
NZT STA2/J244 
JMP J245 

* DOUBLE SIDED MEDIA? YES/ GO TO J244 
*N0/ GO TO POSITIONING 

1134 

1135 
1136. 

01335 

01336 
Q1332- 

6 17110 
6 17111 

CH 

J244 

XMIT 110H/IVR 
XMIT 1 1 1H/IVR 
XEC CH(STAO) 

*SELECT CURRENT TRACK 

1137 

1138 
1139 

01340 

01341 

5 30103 


ORG 4/32 
NZT RB0/1/J246 
XMIT 1.RB0/1 

*SIDE 1? YES/ GO TO J246 
*N0. SELECT SIDE 1 

1140 

1141 

1142 

01342 

01343 

01344 

7 01375 
6 30100 

J246 
J245 

JMP J248 

XMIT O/RBO/1 

XMIT 1/AUX 

*G0 TO READ 
*SELECT SIDE 0 

1143 

1144 

1145 

01345 

01346 

6 17114 


SEL STA 
ORG 14/32 
XEC C15 (STAG) 


1146 

1147 

1148 

01347 

01350 

01351 

1 ”37737 
0 37702 
6 00265 


ADD RB/7/RB 
MOVE £®' 7 ^ 2 aux 

* INC REM ENT TRACK 
*TRACK TO R2 

1149 

1150 

1151 

01352 

01353 

01354 

6 17134 
1 02002 
5 10364 


SEL DIR 
ADD R2/R2 
NZT 0VF/J242 

*INCR. TRACK NO. 

*TRACK 74? YES/ GO TO J242 

1152 

1153 

1154 

01355 

01356 

01357 

6 30100 
6 02001 
6 11154 

J243 

XMIT O/DIR 
XMIT 1/R2 
CALL SEEK1 

*N0/ MOVE 1 STEP IN 
*G0 TO SEEK SUBROUTINE 

1155 

1156 

01360 

01361 

0136? 

7 02767 
7 01375 
6 17H0 

CIS 

JMP J248 
XMIT 110H*IVR 


1157 

1158 

1159 

01363 

01364 

01365 

6 17111 
6 30101 
6Q2111 

J242 

XMIT 111 H/IVR 
XMIT 1/DIR 
XMIT 73/R2 

*DIR OUT 

*N0 OF STEPS 

1160 

1161 

1162 

01366 

01367 
01370 

6 17114 
4 30122 
6 37701 


SEL STA 
XEC C15CSTA0) 
XMIT 1 # RB/7 

’•UPDATE CORRECT TRACK=1 

1163 

1164 

1165 

01371 

01372 

01373 

6 17125 
6 00001 
1 37037 


SEL G4 
XMIT 1/AUX 
ADD G4/G4 

*INCR MEDIA COUNT 

1166 

1167 

01374 

01375 

01376 

7 01357 

6 11155 

7 02414 

J248 

JMP J243 
CALL CRTQ 

*G0 TO CALL SEEK 1 

*CHECI< CRT KEYBOARD INTERRUPT 

1168 

1169 

1170 

01377 

01400 

01401 

7 01400 

5 04004 

6 17134 


ORG 6/256 
NZT R4/J251 
SEL SIDE 

*IF NO INTERRUPT GO TO J251 
*END OF EXECUTION 

1171 

1172 

1173 

01402 

01403 

01404 

6 34101 

7 00260 

611156 _ 

J251 . 

XMIT 1/SIDE 
JMP OKI 

CALL SELS 

*RE$ET DISK CHANGE FLAG 
*60 TO PRINT OK ROUTINE 
*PHYSICALLY SELECT SIDE 

1174 

1175 

01405 

01406 

01407 

7 02566 
6 17115 
6 00007 


SEL PS 

XMIT TMPS/AUX 


1176 

1177 

1178 

01410 

01411 

3 37500 
5 00016 

>v 

XOR PSCC/AUX 
NZT AUX/J252 

*COMPARE TM COMMAND CODE 

*IF NOT TM. GO TO J252 FOR WR COMMAND 

1179 

1179 

1129- 

0141? 

6 17127 . 

■M 

±1300 

CALL2 DATR/J300 
SEL 66 

*YES/ CALL READ SECTOR 


CALL2 DATR/J300 


■••YES/ CALL READ SECTOR 
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1179 

1179 

1179 

01413 

01414 _ 

000016 
6 37016 

♦POINT 

f 

t 

SET POINT+1 
XMIT POINT, G6 
JMP DATR 

*STORE RETURN JUMP INDEX IN G 6 
*G 0 TO 2ND LEVEL SUBROUTINE 

0 

1179 



♦ 

ORG RTN2+P0INT+3 

*INSERT THE NEXT INSTR. IN RETURN TABLE 


1179 

00070 

7 01415 

♦ 

JMP J 300+3 

*2ND LEVEL SUBROUTINE RETURN JUMP 


1179 



+ 

ORG J300+3 



1180 



it 




1181 

01415 

7 01421 


JMP J 253 



11:52. 



* 




life? 



J 252 

CALL2 DATW/J301 

*CALL WRITE SECTOR 


1183 







1183 

01416 

6 17127 

♦J3Q1 

SEL G 6 



1183 


00001 7 

♦POINT 

SET POINT+1 



1183 

01417 

6 37017 


XMIT POINT, G 6 

*STORE RETURN JUMP INDEX IN G 6 


1183 

01420 

7 02034 


JMP DATW 

*G0 TO 2ND LEVEL SUBROUTINE 

0 

1183 



♦ 

ORG RTN2+POINT+3 

^INSERT THE NEXT INSTR. IN RETURN TA r LE 


1183 

00071 

7 01421 


JMP J 301 +3 

*2ND LEVEL SUBROUTINE RETURN JUMP 


1183 



+ 

ORG J 301+3 



1184 



* 




1185 

01421 

6 17115 

J 253 

SEL PS 



1186 

01422 

6 32304 


XMIT 4,PSCS 

^UPDATE PROG. STATUS IN PROG. STATUS REG. 


1187 

01423 

7 01307 


JMP J 254 

*GOTO RE/WR NEXT SECTOR 


1188 



it it it it it it it it it it it it it it it it it it it it it it it ; 

* it it it it it it it it it it it it it it it it it 


1189 



it 


it 


1190 



* 2ND 

LEVEL SUBROUTINE WRITE BUFFER * 


1191 



* CLEAR THE WHOLE BUFFER AND INPUT DATA * 


*1 ^ 9 ? 



* FROM CRT TO BUFFER 

it 


1193 



it 


it 


1194 



it it it it it it it it it it it it it it it it it it it it it fr it it it it it it it it it it it it it it it it it it it 


1195 



it 




1196 



☆ 




1197 

01424 

6 11157 

WBF 

CALL CLRBUF 

*CLEAR BUFFER 



01425 

7 02437 _ 





1198 


001424 

WRBUF 

SET WBF 



1199 

01426 

6 11160 

LWB2 

CALL TTYRE 

*READ CRT INPUT 



01427 

7 02302 





1200 

01430 

6 11161 


CALL TTYWR 

*ECHO CHAR. 



01431 

7 02356 





1201 

01432 

6 00015 


XMIT CR,AUX 



1202 

01432 

3 04000 


XOR R4,AUX 



1203 




ORG 3,256 



1204 

01434 

5 00036 


NZT AUX,*+2 

*CRT CR INPUT 


1205 

01435 

7 01467 


JMP LWB4 

*YES. END OF WB COMMAND 


1206 

01436 

6 00012 


XMIT LF,AUX 

*N0 


1207 

01437 

3 04000 


XOR R4,AUX 



1208 




ORG 6,256 



1209 

01440 

5 00045 


NZT AUX,LWB3 

*LF? NO, GO TO LWB3 


1210 

01441 

6 04015 . . 


XMIT CR,fi4 

*YES 


1211 

01442 

6 11162 


CALL TTYWR 

*XMIT CRT CR 



01443 

7 02356 





_ 1212 

01444 

7 01426 _ 


JMP LWB2 



1213 

01445 

6 00040 

LWB3 

XMIT BL,AUX 



1214 

01446 

3 04000 


XOR R4,AUX 



1215 




ORG 3.256 
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1216 

1217 


01447 

01450 


00051 

01426 


NZT AUX.*+2 
JMP LWB2 


♦BLANK? 

♦YES, GO BACK TO LWB2 


1219 

01452 

6 11163 


CALL TTYRE 




01453 

7 02302 





. 1220 

01454 

6 11164 


CALL TTYWR 

■ECHO CHAR. 



01455 

7 02356 





1221 

01456 

6 11165 


CALL HHB 

CONVERT 2 HEX TO A BINARY 



01457 

7 02503 





1222 

01460 

6 17116 


SEL BA 



1223 

01461 

0 37007 


MOVE BA/IVL 

■ADDRESS BUFFER 


1224 

01462 

0 04027 


MOVE R4,LB 

♦STORE IN BUFFER 


1225 

01463 

6 00001 


XMIT 1,AUX 



1226 

01464 

1 37037 


ADD BA, BA 

♦INCR. BUFFER ADDRESS 


1227 




ORG 3,256 



1228 

01465 

5 10067 


NZT 0VF,*+2 

♦BUFFER ADDRESS OVF? 


1229 

01466 

7 01426 


JMP LWB2 

♦NO. GET MORE INPUT 


1230 

01467 

7 0004? 

LWB4 

JMP RTN2 



1231 



it 




1232 



it 




1233 



it 




1234 



it it it it it it it it it it it it it it it it it it it it it it it it i: it it it it it it it * it it it it it it 


1235 



* 2ND 

LEVSUBROUTINE TO 

DETECT THE ♦ 


1236 



♦ BLANK. READ THE SECTOR NQ. FROM 12 _ * _ 


1237 



* INTO STARTING SECTOR 

REG., DETECT CR * 


1238 



* AND 

GENERATE LF 

it 


1239 



it 


it 


1240 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it itit it it it it it it it it 


1241 



it 




1?42 

(11470 

6 11166 

B ICL 

CALL TTYRE 




01471 

7 02302 





1243 


001470 

BICRLF SET BICL 



1244 

01472 

6 11167 


CALL TTYWR 

*ECHO CHAR. 



01473 

7 02356 





1245 

01474 

6 00040 


XMIT BL,AUX 



1246 

01475 

3 04000 _ 


XOR R4,AUX 



1247 




ORG 3,256 



1248 

01476 

5 00100 


NZT AUX,BI2 

♦BLANK? NO, GO TO BI2 


1249 

01477 

7 014/0 


JMP BICRLF 

♦YES. __5Q BACK. ... 


1250 

01500 

0 04003 

BI2 

MOVE R4,R3 

♦SET UP MS INTEGER FOR 12 


1251 

01501 

6 11170 


CALL TTYRE 

♦SET UP LS INTEGER FOR 12 



01 502 

7 02302 





1252 

01503 

6 11171 


CALL TTYWR 

♦ECHO CHAR. 



01504 

7 02356 





1253 

01505 

6 11172 


CALL 12 _ 

♦SECTOR NO. STORED IN R3 



01506 

7 03036 





1254 

01507 

6 17117 


SEL SS 



1255 

01510 

0 Q3Q37 


MOVE R3,SS 

♦STORED SECTOR NO. IN STARTING SECTOR 

REG. 

1256 



HI2 

CRLF BCL 

♦MACRO FOR DETECT CR AND GENERATE LF 


1256 

01511 

6 11173 

+BCL CALL TTYRE 

♦READ CRT INPUT 

000 


01512 

7 02302 





1256 

01513 

6 11174 


CALL TTYWR 

♦ECHO CHAR 



01514 

7 02356 





1256 

01515 

6 0001 5 

♦ 

XMIT Q15H.AUX . 

♦'CR' TO AUX 





PR06 FIX 
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1257_ 

1258 

1259 
_1Z6Q_ 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

. 1269- 

1270 

1271 
1272- 

1273 

1274 


01516 

.01517- 

01520 

01521 

01522 

01523 

01524 

"01525” 


1 04000 

5 00121 
7 01522 
7 01511 
.6-04012.. 

6 11175 

7 02356 

_OQ1511_ 

7 00047 


01526 6 17115 


01527 

01530 


1276 01532 

1277 01533 
_ 127 2 0 153.4 

1279 01535 

1280 01536 

1281 01537 

1282 01540 

1283 01541 

1285 01 543 

1286 01544 
01545. 

1287 01546 

1288 01547 

1282 

1290 01550 

1291 01551 

1 293 01553 

1294 01554 

” 01556 

1296 01557 

— 01561 

1298 01562 


6 32302 
6 17112 
6 32101 
6 17114 
6 17111 

5 30136- 

6 17110 
6 00304 
1 3 7 70Q. 
6 17134 
6 36100 

5. .10.144 

6 36101 
6 11176 

7. 03167. 

0 11005 

6 17114 

4 36211 

7 01560 
7 0 1 0 4 1 
7 01555 
7 01041 

6 11177 

7 03316 
7 01562 
6 11200 . 
7 03254 
6 11201 


+ XOR R4/AUX 

+ ORG 3,256 

± Mil AUX**±2 — 

♦ JMP *+2 

+ JMP BCL 

±_ XMIL0.12fcUM 

+ CALL TTYWR 

DCRGLf S£ I . H 12 

JMP RTN2 

it 



it 


it is it it it it it it it it it it is it it it is it it it it it it it it it it it it it it it it it it it it it is it it 


it it it it it it it it it it it it it it it it it is it it it it it it it it it it it it it it it it it it it it it it it 


*OUTPuf M L'F TO F CRT° M 


^RETURN TO 2ND LEVEL SUBROUTINE' CALL 


DRE SEL PSCS 

P A T H SE T DRE 

XMIT 2, PSCS 
SEL PHS1 

XMI T 1 # P HS 1 2 

SEL ST AO 
XMIT 111H,IVR 

Ni l S T AQ»£C1 

XMIT 1 10H,IVR 
CC1 XMIT 377H~59,AUX 


SEL LI 

XMIT 0,LI 

N IT Q V F,J.2Q 2 

XMIT 1 /LI 
J202 CALL PREAM 

MOVE R11,R5 
SEL STA 

QR G 5/32 

XEC *+1<M0DU) 
JMP J200 

J MP J 144 

JMP J201 
JMP J144 


JMP J220 


J220 CALL CHID 


•-UPDATE PROG. STATUS REG. TO I.D. SEARCH 


*SEL CURRENT TRACK REG. 2 

* DRI V E 2 SELEC T? Y E S/ J&. 

*SEL CURRENT TRACK REG. 1 


* ENABLE LOW WRITE CURRENT 

^■CURR E NT TRAC K>= 6Q 

^DISABLE LOW WRITE CURRENT 


*SAVE SUBROUTINE RETURN JMP INDEX IN R$ 


*TAB JMP ACCORDING TO STATUS IN MODU 
* DOUBLE DENSITY 

*GQ TO PRINT NOT USED FORMAT ERROR 

^SINGLE DENSITY 

*G0 TO PRINT NOT USED FORMAT ERROR 


* D OUBLE DE NS I TY I.D. .AM..S.EAR&L 
*CHECI< DATA PART OF IDENTIFIER 


PROG FDC 
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1299 01564 6 17112 

1300 01565 6 37000 

1301 01566 _6 17115 


SEL PHS1 
XMIT 0,PHS1 
_S£L P$CS 

*CLEAR PHYSICAL STATUS REG. 1 

1302 01567 6 32303 

1303 01570 6 17001 


XMIT 3.PSCS 
SEL PLLS 

*SET PROGRAM STATUS REG. TO READ DATA 

*PLL FOR TICKLER _ . 

1305 01572 6 17133 

1306 01573 6 31101 
1307. 01574 6 02366 


SEL MCOM Lk 
XMIT 1,RM0D 
XMIT 366H f R2 

STICKLER ON 

*A*297 US TIMING COP FOR S.D. 

1308 01575 6 17114 

1309 01576 7 01600 


SEL MODI) 

ORG 3,32 
NZT MQDU,*+2 

. *A* _ _ _ _ - 

1311 01601 6 02321 

1312 

1312 01602 6 03176 

4 

XMIT 321H,R2 
DELAYP J221,256- 
XMIT 256-2. R3 

*A*334 US TIMING LOOP FOR D.D. 
-2,R2,R3 **WAIT FOR GAP BETWEEN ID 8 DATA 
*START DELAY LOOP 

1312 01603 6 L !1 
1312 0160^ 1 Ot . J2 

4 

+J221 

4 

XMIT 1,AL’X 
ADD R2.R2 
NZT R2, 1221 


1312 01606 1 03003 

1312 01607 5 03204 

1313 

4 

4 

iV 

ADD R3,R3 
NZT R3,J221 

*END DELAY LOOP 

*20 BYTES FOR DD. 10 BYTES FOR SD. 

1314 

1315 01610 6 17133 

1316 01611 6 31100 

* 

SEL MCOM 
XMIT Q,RMOD 

*END DELAY 

*A* 

•••TICKLER OFF. READ MODE. 

1317 01612 6 17132 

1318 01613 6 33306 

1310 01 61 4 6 02353 


SEL COM 

XMIT 1 10B,AMNI 
XMIT 377H-20,R2 

*DATA PREAMABLE SEARCH 

**325 US TIME OUT FOR PREAMBLE + ADDR. MARK _ _ 

1320 

1321 01615 6 17001 

132? 01616 6 37100 

J226 

ORG 47,256 
SEL PLLS 
XMIT 0,PLLS 

*PLL FOR PREAMBLE 

1323 01617 6 17132 

1324 01620 6 33306 

1325 016?1 6 01377 


SEL COM 

XMIT 1 1QB,AMNI 
XMIT 377H.R1 

*INPUT FOR DATA PREAMBLE SEARCH 
*A* LOOK FOR ONE PREAMBLE BYTE FOR S.D. 

1326 01622 6 17114 

1327 01623 5 36225 
l|?8 OI 624 6 01375 


SEL MODU 
NZT M0DU,*+2 
XMIT 377H-2.R1 

*A* 

*£( ^ 5I' 

*A*L00i< FOR 3 PREAMBLE BYTES FOR D.D. 

1329 01625 6 17132 

1330 

1331 01626 5 36125 

J 222 

SEL ST330 
ORG 9.32 
NZT BYTRA.J222 

mH FOR PREAMBLE BYTE _ __ 

1332 01627 6 17137 

1333 01630 0 37000 

1334 01631 5 00242 


SEL FDAT 
MOVE FDAT,AUX 
NZT AUX,J223 

*IF NOT. PREAMBLE BYTE GOTO J223 

1335 01632 6 00001 

1336 01633 1 01001 

1337 01634 5 01225 


XMIT 1 ,AUX 
ADD R1,R1 
NZT R1.J222 

£ ^ £ 

*A* INCREMENT PREAMBLE BYTE COUNTER 
. - *A* DONE WITH PREAMBLE BYTES? 

1338 01635 6 17132 

1339 01636 6 33305 

1340 01637 6 17001 


SEL COM 

XMIT 101B,AMNI 
SEL PLLS 

'•ADDRESS MARK SEARCH MODE 

1341 01640 6 37101 

1342 01641 7 01651 

1343 01642 6 00001 


XMIT 1 ,PLLS 
JMP J224 
XMIT 1,AL?X 

*PLL FOR DA' A 
*J224=SEARCH FOR AM 

1344 01643 1 02002 

1345 01' * 5 02215 
-13.46.-_ Qloai — 6_1Z112 — 

1222 

ADD R2,R2 
NZT R2,J226 
sa PHS1 

*PREAMBLE TIME OUT? NO, LOOK FOR PREAMBLE 
*IES. _ _ ... 


PROG FDC 
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1347 

01646 

6 00002 


XMIT 2,AUX 


1348 

0164? 

0 00037 


MOVE AUX,PHS1 

*SET MISSING DATA AFTER ID FLAG 

1349 Q1 650 7 0Q3Q5 


J ftp 


1350 

01651 

6 17114 

J224 

SEL STA 


1351 




ORG 5,32 


1352. 

01652 

4 3621 3 


XEC *+1 (MODU) 


1353 

01653 

7 01663 


JMP AMDD 

*DOUBLE DENSITY DATA PART AM SEARCH 

1354 

01654 

7 01041 


JMP J144 

*G0 TO PRINT NOT USED FORMAT ERROR 

1355 

£1655 

7 OI 734 


JMP AMSD 

^SINGLE DENSITY DATA PART AM SEARCH 

1356 

01656 

7 01041 


JMP J144 

*G0 TO PRINT NOT USED FORMAT ERROR 

1357 

01657 

6 00001 

J 225 

XMIT 1 ,AUX 

*DD DATA PART AM TIME OUT 

1358 

01660 

1 Q2002 


ADD R2,R2 


1359 

01661 

5 02263 


NZT R2,AMDD 


1360 

01662 

7 01645 


JMP J227 

*G0 TO PRINT MISSING DATA AFTER ID ERROR 

1361 

01663 

6 17132 

AMDD 

SEL ST33Q 


1362 

01664 

5 36123 


NZT BYTRA,AMDD 

*WAIT FOR 1ST NIBBLE OF AM 

1363 

01665 

6 33307 


XMIT 1118, AMNI 

*DATA BYTE MODE 

1364 

01666 

6 17137 


SEL F DAT 


1365 

01667 

6 00104 


XMIT 104H,AUX 


1366 

01670 

3 37000 


XOR FDAT,AUX 

COMPARE 1ST NIBBLE OF 'AT 

1367 

01671 

5 00242 


NZT AUX,J223 

*MATCH? NO, GO TO DATA PART PREAMBLE SEARCH 

1368 




ORG 3,32 


1369 

01672 

6 17132 

J228 

SEL ST330 

*YES 

1370 

(11673 

5 36132 


NZT BYTRA,J228 

*WAIT FOR 2ND NIBBLE OF AM 

1371 

01674 

6 17137 


SEL FDAT 


1372 

01675 

6 00211 


XMIT 211H,AUX 


1373 

01676 

3 37QQ0 


XOR FDAI,AUX 

^COMPARE 2ND NIBBLE OF . ' A1 ' 

1374 

01677 

5 00242 


NZT AUX,J223 

*MATCH? NO, GO TO DATA PART PREAMBLE SEARCH 

1375 

01700 

6 17132 

J229 

SEL ST330 

*YES 

1376 

01701 

5 36100 


NZT 8YTRVJ229 

*WAIT FOR 2ND AM OF 'Al \ 

137? 

01702 

6 17137 


SEL FDAT 


1378 

01703 

6 00241 


XMIT 241H,AUX 


1379 

01704 

3 37003 


XOR FDAT.R3 

^COMPARE 2ND AM OF ' Al ' 

1380 

01705 

5 03215 


NZT R3.J226 

*MATCH? NO, GO TO DATA PART PREAMBLE SEARCH 

1381 

01706 

6 17132 

J230 

SEL ST330 

*YES 

1382 

01707 

5 36106 


NZT BYTRA.J23Q 

*WAIT FOR 3RD AM OF 'Al' 

1383 

01710 

6 17137 


SEL FDAT 


1384 

01711 

3 37000 


XOR FDAT,AUX 

*COMPARE 3RD AM 

1385 

01712 

5 00245 


NZT AUX-J227 

*MATCH? NO, GO TO PRINT NO DATA AFTER ID 

1386 

01713 

6 17132 

J 231 

SEL ST330 


1387 

01714 

5 36113 


NZT BYTRA,J231 

*WAIT FOR ' F8' OR 'FB' 

1388 

01715 

6 00370 


XMII 37QH.AUX 

*370H=' F8' 

1389 

01716 

6 17137 


SEL FDAT 


1390 

01717 

3 37000 


XOR FDAT,AUX 

^COMPARE DEL/DEF RECORD 

1391 

01720 

5 00324 


NZT AUX,J232 

*MATCH? NO. GO TO CHECK FOR DATA RECORD AM 

1392 

01721 

6 17113 

J238 

SEL PHS2 

*YES 

1393 

01722 

6 37203 


XMIT 3,RB,2 

*SET DEL/DEF RECORD 'F8' ERROR FLAG 

1394 

01723 

7 01760 


JMP J 233 

.... *G0 TO READ DATA PART INTO BUFFER 

1395 

01724 

6 00373 

J 232 

XMIT 373H,AUX 

*373H='FB' 

1396 

01725 

3 37000 


XOR FDAT,AUX 

^COMPARE CORRECT DATA RECORD AM C ' FB ' ) 

1397 

01726 

5 00245 .. 


NZT AUX,J227 

*MATCH? NO. GO TO PRINT NO DATA AFTER ID 

1398 

01727 

7 01760 


JMP J233 

*YES, GO TO READ DATA FROM FLOPPY TO BUFFER 

1399 



☆ 



1400 






, 



PROG FDC 
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1401 

1402 
1403 

01730 

JHZ31 

6 00001 

a 

J234 

XMIT 1,AUX 
ADD R2,R2 

*SINGLE DENSITY DATA PART AM TIME OUT 


1404 01732 

1405 01733 
__ 1406 01734 

5 02334 
7 01645 

6 17132 

AMSD 

NZT R2,AMSD 
JMP J227 
SEL ST330 

*60 TO PRINT MISSING DATA AFTER ID ERROR 


1407 

1408 
1409 

01735 

01736 
JHZ37 

5 36134 

6 17137 
6 00365 


NZT BYTRA, AMSD 
SEL FDAT 
XMIT 365H.AUX 

*WAIT FOR 1ST NIBBLE OF DATA AM 
*365H='F5' 


1410 

1411 

1412 

01740 

01741 

01742 

3 37000 
5 00242 
_6 17132 _ 


XOR FDAT,AUX 
NZT AUX,J223 
SEL NIB L 

^COMPARE 1ST NIBBLE 

*MATCH? NO, GO TO DATA PART PREAMBLE SEARCH 


1413 

1414 

1415 

01743 

01744 

01745 

6 33307 
6 17132 
5 36104 „ 

J 235 

XMIT 111B,AMNI 
SEL ST330 
NZT BYTRA. J 235 

*DATA BYTE MODE 

*WAIT FOR 2ND NIBBLE OF DATA AM 


1416 

1417 

1418 

01746 

01747 
01 750 

6 17137 
6 00157 
3 37000 


SEL FDAT 
XMIT 157H,AUX 
XOR FDAT.AUX 

*157H='6F'=REG. DATA 
^COMPARE 2ND NIBBLE 


1419 

1420 

1421 

01751 

01752 

01753 

5 00353 
7 01760 

6 00152 

J236 

NZT AUX.J236 
JMP J233 
XMIT 152H,AUX 

*MATCH? NO, GO TO CHECK FOR DELETED DATA AM 
*YES, GO TO READ DATA INTO BUFFER 
*152H='6A'=DELETED DATA AM 


1422 

1423 

1424 

01754 

01755 

01756 

3 37000 
5 00357 
7 01721 


XOR FDAT,AUX 
NZT AUX,*+2 
JMP J238 

COMPARE 2ND NIBBLE WITH ' F8 * 

*G0 TO DATA PART PREAMBLE SEARCH 
*GOTO DEL/DEF RECORD 


1425 

1426 

1427 

01757 

7 01615 

JMP J226 

it 

it it it it it it it it it it it it it itititititit it i: i: if if if it * if it it it it it it it it it it it 


1428 

1429 

1430 



it 

^BEGINNING OF READ DATA 
BUFFER 

it 

FROM DISK TO * 

it 


1431 

1432 



it it 

it it it it it it it it it it it it i: it it it it it it it it it it it it it it it it it it it it it it it it it it it it 





it 




1434 

1435 

1436 

01760 

01761 

01762 

6 01000 
6 17116 
0 37002 

J233 

XMIT 0H,R1 
SEL BA 
MOVE BA.R2 

•■CLEAR BUFFER ADDRESS POINTER 
*MQVE SECTOR LENGTH TO R2 


1437 

1438 

.. 1439 

01763 

01764 

6 00001 
1 02002 


XMIT 1 ,AUX 
ADD R2,R2 
ORG 9.256 

*DECR. NO. OF DATA LEFT 


1440 

1441 

1442 

01765 

01766 

01767 

6 17132 

5 36125 

6 17137 

E2 

SEL ST330 
NZT BYTRA, E2 
SEL FDAT 

*WAIT FOR DATA FROM FLOPPY 


1443 

1444 
1 445_ 

01770 

01771 

01772 

0 01007 

0 37027 

1 01001 


MOVE R1,IVL 
MOVE RB,LB 
ADD R1,R1 

* ADDRESS BUFFER 

*MOVE DATA FROM FLOPPY TO BUFFER 
*INCR. BUFFER ADDRESS POINTER 


1446 

1447 

1448 

01773 

01774 

01775 

1 02002 

5 02365 

6 17132 

E3 

ADD R2,R2 
NZT R2,E2 
SEL ST33Q 

*DECR. NO. OF DATA LEFT 

*ANY DATA LEFT? YES, GO BACK TO READ DATA 

*YES 


1449 

1450 
1451 

01776 

01777 
-02000- 

5 36135 

6 17137 

6 17132 


NZT BYTRA, E3 
SEL FDAT 

SEL..DOM 

*WAIT FOR 1ST CRC 



1452 

1453 

1 45 4 


02001 

02002 

02QQ 3 


6 31100 

5 36101 

6 11132, 


XMIT OH/CRCE 
NZT BYTRA,*-1 
SEL FDAT 


•'DISABLE CRC 
*BYTRA=0 ? READ 2ND CRC FROM DISK 
*SET BYTRA. 


PROG FDC 

1455 02004 6 17132 

1456 02005 5 36104 

1458 02007 0 37000 

1459 

'1461 02011 I 6 37100 

1462 02012 5 00027 


1464 02014 5 36113 

1465 02015 6 17137 

J 4 66 .02016 -0 37Q0 0 

1467 02017 5 00027 

1468 02020 6 11202 


02022 

02023 

Q2Q24 

02025 

02026 
02027 

02030 

02031 


6 17133 
6 31101 
.6 1 2001 

6 37100 

7 00047 

a 11112 

6 30101 
6 11203 


02033 7 00305 


02034 


02036 

02037 
Q2040 

02041 

02042 


6 17115 
002034 
6 32302 

6 17135 

7 02040 

5 32104 

6 17113 
6 30101 


MICROCONTROLLER CROSS ASSEMBLER VER 2.0 

_______ . 

NIT BYTRA,*-1 *READ 1ST 8X330 GENERATED CRC 


MOVE FDAT/AUX 
ORG 14/256 

SEL PLLS 

XMIT O/PLLS 
NZT AUX/LRA4 

SEL COM 

NZT BYTRA,*-1 
SEL FDAT 
M OVE FDA T /AUX 
NZT AUX/LRA4 
CALL DREC 

SEL RMOD 
XMIT 1 /RMOD 

..SELPLLS 

XMIT O/PLLS 

JMP RTN2 

SEL. P HS1 

XMIT 1/PHS10 
CALL DREC 

JMP CERR 


COMPUTED CRC=0? NO/ GO TO LRA4 

*YES 

*BYTRA=0 ? READ 2ND GENERATED CRC 


COMPUTED CRC=0? NO/ GO TO LRA4 
*Y C S 


*TURN ON TICKLER 
*PLL FOR TICKLER 

*SET READ DATA ERROR FLAG 

*G0 TO PRINT ERROR ROUTINE 


*END OF READ DATA FROM DISK TO BUFFER 


&****Mr**iflr&ft , **£ ☆ ☆ 'V * >'r ☆ ☆ ☆ & it it irk it it * it it * it it 

* WRITE DATA ONTO DISK *" 

* * 

* 

* SEGMENT DATW (WRITE SECTOR) 

* 


DWR SEL PS 
DATW SET DWR 


SEL WRPR 
ORG 5/32 
NZ I .-HR P R/ C HG' 
SEL PHS? 

XMIT 1/PHS20 


*YES/ SET WRITE PROTECT ERROR FLAG 


uuu 

1501 

1502 

1503 

02044 

02045 

02046 

— JL_ 

6 

0 

_6_ 

UUWUi 

17114 

30103 

17111 

Mm. kum 

CHG4 SEL STA 

MOVE STA0/R3 
_ XMIT 111H/IVR 

vv — iv i n a i3-i ymva n t _ _ 

*SELECT CTR2 

1504 

02047 

5 

03051 

NZT R3/*+2 


1505 

02050 

6 

17110 

XMIT 1 10H/IVR 

*S ELECT C7R1 

Kf IJWB 


_£l 


MNMMMMRMMIMHM yll WMfMA • HWW,! 1 MHM 



PROG FDC 


MICROCONTROLLER 


1507 

1508 


02052 

02053 


37700 

17133 


ADD RB,7,AUX 
SEL MCOM 


-■ 

1510 

1511 
_ 1512 

02055 

02056 

02057 

* . 

5 10057 

6 30100 
.6 00304 

C100 

1- i^inww 

NZT OVF,C100 
XMIT 0,PRC0 
XMIT 377H“59,AUX 

1513 

02060 

1 37706 


ADD RB,7,AUX 

1514 

02061 

6 17134 


SEL LI 

1515 

02062 

6 36100 


XMIT OAI 

1516 

02063 

5 10065 


NZT 0VF,CHG7 

1517 

02064 

6 36101 


XMIT 1 ,LI 

1518 

02065 

6 11204 _ 

CHG7 

CALL PREAM 


02066 

7 0316? 



1519 

02067 

6 17114 


SEL MODU 

1520 

02070 

0^1 GQ5 


MOVE R1UR5 

1521 

02071 

4 36232 


XEC *+1 (MODU) 

1522 

02072 

7 02101 


JMP J700 

1523 

02073 

7 01041 


JMP J144 

1524 

02074 

7 02076 


JMP J701 

1525 

02075 

7 01041 


JMP J144 

1526 

02076 

611205 

J701 

CALL AMSI 


02077 

7 03316 



1527 

02100 

7 02103 


JMP J702 

152A 

02101 

6 11206 

J7QQ 

CALL AMD! 


02102 

7 03254 



1529 

02103 

6 11207 

J702 

CALL CHID 



■ ■ MM — 



1530 

02105 

6 17133 


SEL RMOD 

1531 

02106 

6 31101 


XMIT 1H,RM0D 






1533 

02110 

6 37100 


<MIT 0,PLLS 

1534 

02111 

6 17115 


SEL PSCS 

-.'■Wa 




lEf mH flEVK 5il^ 

1536 

02113 

6 17112 


SEL PHS1 

1537 

02114 

6 37000 


XMIT 0H,PHS1 

• HLr'.fl 


6 17114 


■d imAqvWlBmmmm 

1539 

02116 

0 36206 


MOVE M0DU,R6 

1540 

02117 

6 00377 


XMIT 255, AUX 





Vi] ?1 rWVJrlf.^— 

1542 

02120 

4 06212 


XEC LTABACR6) 

1543 




ORG 5,32 

■mini 

WiyifSM 

6 17132 

C17 


1545 

02122 

5 37125 


NZT READY, C16 

1546 

02123 

5 36121 


NZT BYTRA,C17 

— IU1 


■ ■III — 



1548 

02125 

7 02207 

C16 

JMP L333 

1549 

02126 

7 02140 


ORG 12,32 


■tTOTil 

■ ■mi— i 

MtmikVWI 


1551 

02141 

6 17111 


XMIT 111 H, IVR 

1552 

02142 

1 01001 

C20 

ADD R1,R1 



6. 1 713Z 




1554 

1555 


02144 

02145 


6 00000 
0 00037 


XMIT 0,AUX 
MOVE AUX,FDAT 


ASSEMBLER VER 2.0 


PAGE 34 


TENABLE PRECOMP ENS A TIQN 

*CURRENT TRACK> S 43? YES, 
"DISABLE PRECOMPENSATION 


GO TO Cl 00 


. * ENABLE. . LO W . W R I IE C U RRENT 

*TRACK>59? YES, GO TO CHGf 
^DISABLE LOW WRITE CURRENT 
^PREAMBLE SEARCH 


*SAVE SUBROUTINE RETURN JUMP INDEX IN R5 

*TAB JMP ACCORDING TO MODU 

*DD 

*T0 NOT USED FORMAT ERROR 

*SD 

*T0 NOT USED FORMAT ERROR 
*IDzAM-SE A RCH F O E S P 


-*ID AM SEARCH FO R DP 

**CHECK IDENTIFIER 


*TURN ON TICKLER. ENABLE WRITE MODE 
*PLL FOR TICKLER 

* SE T PROG RA M .SJ A T.U S= . W &.im>AIA 

*CLEAR PRELIMINARY READ ERROR FLA3 

*SAVE SD OR DD ENCODING INFO IN R6 
*-1 


*STORED NO. OF BYTES FOR GAP IN R1 


*DRIVE READY? NO, GO TO Cl 6 
*YES, WAIT FOR ONE BYTE OF GAP 

*YES 

*G0 TO PRINT DRIVE NOT READY ERROR 


*SEL CURRENT TRACK REG. OF DRIVE 1 


*SEL CURRENT TRACK REG. OF DRIVE 2 
*DECR. NO. OF BYTES LEFT FOR THE GAP 
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1557 

1558 
1559 

02147 

02150 

02151 

5 01121 

6 17132 
6 33406 


NZT R1,C17 
SEL AMNI 

XMIT 01 10B,AMNI,4 

-WAIT FOR GAP 

*WRITE ENABLE, PRESET CRC REG. 


1560 

1561 
_ 1562 

02152 

02153 
Q21S4 

6 17114 
4 30100 
6 C032S 


SEL STA 

XEC C12CSTA0) 

XMIT 377H-42,AUX 

*SEL CURRENT TRACK REG. ACCORDING TO STATUS 


1563 

1564 

1565 

02155 

02156 

02157 

1 37700 
6 17134 
6 36100 


ADD RB,7,AUX 
SEL LI 
XMIT Q„LI 

*ENA3LE LOW WRITE CURRENT 


1566 

1567 

1568 

02160 

02161 

02162 

5 10162 

6 36101 
4 06216 

C18 

NZT 0VF.C18 
XMIT 1,LI 
XEC LTABB (R6) 

CURRENT TRACK>= 43? YES, GO TO Cl 8 
^DISABLE LOW WRITE CURRENT 
*GET NO. OF PREAMBLE BYTES INFO 


1569 

1570 

1571 

02163 

02164 

02165 

6 17132 

5 36123 

6 17137 

C19 

SEL ST330 
NZT BYTRA,C19 
SEL FDAT 

*WRITE PREAMBLE BYTE 


1572 

1573 
1524 

02166 

02167 

02170 

6 00000 
0*00037 
6 00377 


XMIT 0,AUX 
MOVE AUX,FDAT 
XMIT 255-AUX 

^PREAMBLE BYTE=0 

*“1 


1575 

1576 

1577 

02171 

02172 

02173 

1 01001 

5 01163 

6 17132 


ADD R1,R1 
NZT R1,C19 
SFL ST33D 

*D£CR. NO. OF PREAMBLE BYTE 

*DONE WITH PREAMBLE BYTES? NO, GO TO Cl 9 

*YES 


1578 

1579 

1580 

02174 

02175 

02176 

6 33305 
4 06222 
6 00365 

FMAM 

XMIT 1016, AMNI 
XEC uTABC <R6> 
XMIT 3A5H,AUX 

^NIBBLE MODE 

*G0 TO WRITE ADDRESS MARK 
*1ST NIBBLE OF FB OR F8 


1581 

1582 

1583 

02177 

02200 

6 17137 
0 00037 


SEL FDAT 
MOVE AUX,FDAT 
ORG 2,32 

*RESET BYTRA 

*LOAD 1ST NIBBLE IN 8X330 DATA REG. 


1584 

1585 

1586 

02201 

02202 

02203 

6 17132 

5 36101 

6 02157 

L203 

SEL ST330 
NZT BYTRA,L203. 
XMIT 157H,R2 

*WRITE 1ST NIBBLE 

*2ND NIBBLE OF FB 


1587 

1588 

1589 

02204 

02205 

02206 

6 17137 
0 02037 

7 02251 


SEL FDAT 
MOVE R2#FDAT 
JMP SDATA 

*START OF DATA 


1590 

1591 

1592 

02207- 

02210 

02211 

6 17113 

6 31101 

7 00305 

L333 

SEL PHS2 
XMIT 1 ,PHS21 
JMP CERR 

*SET DRIVE NOT READY FLAG 
*G0 TO PRINT ERROR ROUTINE 


1593 

1594 

1595 

02212 

02213 

0221 4 

6 01024 

7 01041 
6 01011 

LTABA 

XMIT 20, R1 
JMP J144 
XMIT 9.R1 

*A*21. BYTES OF GAP FOR DD. 

*G0 TO PRINT NOT USED. FORMAT ERROR ROUTINE 
*A*1Q BYTES OF GAP FOR ^0 


1596 

1597 

1598 

02215 

02216 
0221?_ 

7 01041 

6 01014 

7 01041 _ 

LTABB 

JMP J144 
XMIT 12, R1 
JMP J144 

*G0 TO PRINT ERROR ROUTINE 

*12 BYTES OF PREAMBLE BYTES 

*GQ TO PRINT NOT USED FORMAT ERROR ROUTINE 


1599 

1600 
1601 

02220 

02221 

02222 

6 01006 
7 01041 
7 02226 

LTABC 

XMIT 6,R1 
JMP J144 
JMP MFMAM 

*6 BYTES OF PREAMBLE BYTES 

*G0 TO PRINT NOT USED FORMAT ERROR ROUTINE 

*G0 TO WRITE MFM AM 

* 

1602 

1603 

1604 

02223 

02224 
02223 

7 01041 
7 02176 
1 01041 


JMP J144 
JMP FMAM 
JMP J144 

*G0 T 0 PRINT NOT USED FORMAT ERROR ROUTINE 
*G0 TO WRITE FM AM 

*G0 TO PRINT NOT USED FORMAT ERROR ROUTINE 


1605 

1606 
16QZ- 

02226 

0222? 

02230 

6 03375 
6 04104 

.6 17137- 

MFMAM 
L2Q6_ 

XMIT 377H-2,R3 
XMIT 104H,R4 
-SEL..fMI 

*CNT OF 3 

*1 ST NIBBLE OF A1 



MOVE R4,FDAT 
ORG 2,32 


1608 02231 0 04037 

1609 


«*fl 
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1611 

1612 

1613 

02233 

02234 

02235 

5 36132 

6 17137 
6 00211 

NZT SYTRA,L205 
SEL FOAT 
XMIT 21 1H,AUX 

*WRITE 1ST NIBBLE OF A1 
*2ND NIBBLE OF A1 


1614 

1615 

1616 

02236 

02237 
02240 

0 00037 
6 00001 
6 02373 

MOVE AUX,FDAT 
XMIT 1H/AUX 
XMIT 373H,R2 

*FB HEX FOR DATA AM 


1617 

1618 
1619 

02241 

02242 

6 17132 
5 36101 

ORG 2,32 
L214 SEL ST330 

NZT BYTRA,L214 

*WRITE 2ND NIBBLE OF A1 


1620 

1621 

1622 

02243 

02244 

02245 

1 03003 
5 10246 
7 02230 

ADD R3,R3 
NZT 0VF,*+2 
JMP L206 

*INCR. COUNT OF ADDRESS 
*WRITE A1 3 TIMES 


1623 

1624 

1625 

02246 

02247 
02250 

6 32101 
6 17137 
0 02037 

XMIT 1 ,NIBL 
SEL FDAT 
MOVE R2.FDAT 

*BYTE MODE 
PRESET BYTRA 


1626 

1627 

1628 

02251 

02252 

02253 

6 00001 
6 17116 

SDATA XMIT 1,AUX 
SEL BA 
MOVE BA,R1 

*R1=N0. OF DATA TO BE TRANSFER 


1629' 

1630 

1631 

02254 

02255 

1 01001 
6 02000 

ADD R1,R1 
XMIT 0,R2 
_ ORG 8,256 

*CLEAR BUFFER ADDRESS POINTER 


1632 

1633 

1634 

02256 

02257 
02260 

6 17132 

5 36116 

6 17137 

L207 SEL ST330 

NZT BYTRA,L207 
SEL FDAT 

*WRITE LAST AM AND DATA BYTE 


1635 

1636 

02261 

02262 

0 02007 
0 27037 

MOVE R2,IVL 
MOVE LB,RB 

^ADDRESS BUFFER 

*MOVE DATA FROM BUFFER TO DATA REG. IN 8X330 



— — — — 

1638 

1639 

1640 

02264 

02265 

02266 

* U4UUL 

1 01001 
6 17132 
6 33307 

- I 

ADD R1,R1 
SEL AMNI 
XMIT 11 IB, AMNI 


T l\ * WU1 1 fc.ll L.M6H 1 „ 

*DECR. NO. OF DATA BYTES TO BE TRANSFER 
*BYT£ MODE, ENABLE CRC 


1641 

1642 

1643 

02267 

02270 

5 01256 

6 01371 

NZT R1,L207 
XMIT 256-7, R1 
ORG 7,256 


*DONE WITH ALL DATA TRANSFER? NO,GO TO L20T . 
*YES 


"1644 

1645 

1646 

02271 

02272 

02273 

6 17132 

5 36131 

6 31100 

C21 SEL ST330 

NZT BYTRA, C21 
XMIT Q,CRC£ 


TRANSFER LAST CRC BYTE 
*D I SABLE CRC GENERATOR 


1647 

1648 

1649 

02274 

02275 

02276 

6 17137 
1 01001 
5 01271 

SEL FDAT 
ADD R1,R1 
NZT RUC21 


*WRITE 6 BYTES. 


1650 

1651 

1652 

02277 

02300 

02301 

6 17132 

6 30101 

7 00047 

SEL COM 
XMIT 1 ,WRGA 

JMP RTN2 


*DISABLE WRITE GATE 


1653 

1654 

1655 



*END OF WRITE DATA 

is 

isisitisisisisicisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisisis 


1656 

1657 

1658 



it 

* TTYRE SUBROUTINE 
* READ CRT INPUT AND STORE 7 

☆ 

is 

BITS ASCII IN R4 


1659 

1660 
1661 



* G5= NO. OF DATA BITS 

* G1= L.S. TIME DELAY 

* G2= M.S. TIME DELAY 

! * 

COUNTER * 

COUNTER * 


1662 

1663 

1664 



* R4*~ ASCII CRT INPUT 

* DELAY IN G1 AND G2= 

is 

1 DATA 

is 

BIT TIME. * 

* 


* 
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1665 

1666 
166Z 

1668 

1669 


02302 

02302 

02303 

02304 
J223HL 

02306 

02307 
Q 2310 

02311 

02312 

02313 

02314 

0231 5 

02316 

02317 
023c 3 

02321 

02322 

02323 

02324 

02325 

02326 

02327 

02330 

02331 

02332 

02333 

02334 


6 04377 
6 35100 
6 17135 

5 31105 

6 17135 
-X31H2 

7 02307 
6 17126 

6 Q037Q 

0 00037 

6 00375 
-6..12123- 
0 00037 

7 02337 
6 .17135 

0 31100 
3 04104 
.6 00001 
6 17126 

1 37037 

6 00376 

7 02316 
6 17001 
6 35101 
6 00376 

2 04004 




is iSr is irkisisisisisitisisisirisititi? is is is is is it is is Ar it A* A' is A' is is is A* is Ar Ar * is is A- A A # is * * A 
❖ 


PROC TTYRE 

SEL £CR ? 

XMIT 377H,R4 
XMIT OH/ECRT 

S E L R D AT 

NZT RDAT,T1 
SEL RDAT 
NZT RDAT.T3 
JMP T2 
SEL G5 

XMIT 377H-7.AUX 
MOVE AUX,G5 
XMIT 377H-2/AUX 

S EL G 2 

MOVE AUX,G2 
JMP T5 

SEL RDA T 

MOVE RDAT/AUX 
XOR R4C1 ),R4 

XMI T 1 ,AUX 

SEL G5 
ADD G5,G5 
X M I T 3 7 7H -1 # AUX 
JMP T6 
SEL ECRT 

XMIT 1H,ECRT 

XMIT 376H/AUX 
AND R4/R4 


*CLEAR BUFFER REGISTER 
* ENABLE CRT 

*STOP BIT? YES/ GO TO T2 


*N0, GO TO T2 


*LOAD COUNT OF 8. 

**PELAY FOR ONE AND A HALF BIT TIME 

*AU X=323H FOR 110 BAUD 

*LOAD M.S. TIME DELAY COUNTER 


''STORE DATA BIT IN R4 


tINCR. COUNT OF DATA BITS 


*AUX=342H FOR 110 BAUD 


*MASK 7 M.S. BITS 

is 




1698 

02336 

7 03540 


RTN 

1699 

02337 

6 17122 

T5 

SEL G1 

ill 

■*r£J T* 




1701 

02341 

0 00037 


MOVE AUX/G1 

1702 

02342 

6 00001 


XMIT 1/AUX 





ORG 2,32 

1704 

02343 

1 37037 

T4 

ADD G1/G1 *START TINE DELAY FOR 1 DATA BIT TIME 

1705 

02344 

5 37003 


NZT G1/T4 

»»swr<ir.i 

liWV 

6 17123 


SEL G2 „ _ 

1707 

02346 

1 37037 


ADD G2/G2 

1708 

02347 

5 37011 


NZT G2/T100 *END OF TOME DELAY? NO, GO BACK TO T5 

wmmmKivm 





1710 

02351 

7 02337 

T100 

JMP T5 

1711 

02352 

6 17126 


SEL G5 

1712- 


HKf/ (I MBMB 




1716 

1717 

17 18 
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1719 

1720 

.1221 ___ 

1722 

1723 

1224 

1725 

1726 

J 121 

1728 

1729 

JLZ3Q 

1731 02356 

1732 02356 6 17001 


1734 02360 6 17126 

1735 02361 6 00367 

1737 02363 60037!' 

1738 02364 6 1712! 

171 9 0236 5 0 0003 - 

1740 

1741 02366 6 17121 


1743 02370 

1744 02371 
-1245 02372 

1746 02373 

1747 02374 

1748 02375 

1749 02376 

1750 02377 

1 7 51 Q 24Q Q 

1752 02401 

1753 02402 

125.4 

1755 02403 

1756 02404 


1758 02406 

1759 02407 

1761 024* t 

1762 02412 


0 0003 ’ 
6 0000 I 

1 3203 L 

5 37032 

6 17123 
13711x2- 

5 37026 

6 1 7 4 26 
-5-37102- 

7 0 x540 
1 7 7037 

T 37005 - 
‘ 02411 
6 17001 
0 04136 
0 04104 

_Z 0236 3 

6 17001 
6 36101 


* OUTPUT ASCII DATA IN R4 TO CRT 

* G2= M.S. TIME DELAY COUNTER 


* G5= COUNT OF BIT TIME 

* R4= ASCII DATA 


************************************************** 


PROC TTYWR 
SEL TDAT 


SEL G5 

XMIT 377H-8,AUX 

-MOVE A UX«.G5 

XMIT 377H-2,AUX 
SEL G2 

MOVE AUX„G2 

ORG 9,32 
SEL G1 

XMIT 377Hr118«Al 
MOVE AUX,G1 
XMIT 1 ,AUX 

ADD G1,61 

NZT G1,T24 
SEL j2 

AD D G 2,G2 

NZT G2,T25 
SEL G5 

NZT G5.C39 

RTN 

ADD G5,G5 

QRG 3, 32 

NZT G5»C36 
JMP C37 

-EEL I DAI 

MOVE R4,TDAT 
MOVE R4(1),R4 

J M P T 21 

SEL TDAT 
XMIT 1/TDAT 


**DELAY ONE BIT TIME, 
*AUX=342H FOR 110 BAUD 


*START OF DELAY LOOP 


*LOAD u.S. TIME DELAY COUNTER 


*END OF DELAY LOOP 


*INCR. DATA BIT COUNT 


*SHIFT OUT L.S.B. OF R4 TO TDAT 
BRIGHT ROTATE ONE PLACE 


*XMIT STOP BIT 


END TTYWR 

************************************************** 


*THIS SUBROUTINE CHECKS FOR INTERRUPT FROM CRT * 


^REGISTER USED=AUX,R2,R3,R4 * 

************************************************** 
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1773 

1774 

1775 

1776 

1777 

JIM. 


1779 

1780 
1181 

1782 

1783 

JM4_ 


02414 

0241 4 

02415 

02416 

02417 
02420 


02421 

02422 

02423 


6 04001 
1 7001 
6 35100 
6 00377 
6 02214 


1 02002 
5 02021 
_6_17U5 


1785 

1786 

J7AL 


02424 

0242 5 


1788 

1789 

m 


02426 

02427 
.02430. 


5 31130 

6. 1. 7 .00 1 . 


02431 

02432 

0243 3 


6 35101 

7 03540 
6 0 3Q2 1 


1 02002 
5 02031 
1-03005 


PROC CRTQ 
XMIT 1,R4 
SEL ECRL 


XMIT 0#ECRT 
XMIT 255/AUX 

XMIT 14Q g R2 

J800 ADD R2/R2 

NZT R2/J800 

JLEL- 


*PRELIM STATUS=R4=1=CHAR NOT AVAILABl c 
*SEL ENABLE CRT 


* ENABLE CRT 
*AUX=-1 

.±*MAII-C.QML.150...U.S.EC-. 


J803 


0R6 573t 
NZT RDAT/J801 
...SEL EC.BI. 


*IF CHAR AVAILABLE GOTO J801 


XMIT 1/ECRT 
RTN 

.10 0 1 


J802 ADD R2/R2 

NZT R2/J802 

ADD R3«R3 


*DISABLE CRT 

^SET^AITING TIME 1 CHA RACT~R 


"'START DELAY LOOP FOR 1 CHAR. TIME 


1791 

1792 
1795. 

1794 

1795 

1 796 


02434 

02435 


5 03031 

6 04000 
.02425 


NZT R3/J802 
XMIT 0,R4 
IMP .1803 


END CRTQ 


*END DELAY LOOP 
*STATUS=R4=0=CHAR AVAILABLE 
* G Q T O. DISAB LE CR T 


* 

* 


1797 

1798 

UBS 


1800 

1801 


**************************************** 
TV vV 

TV ☆ 


* SUBROUTINE TO CLEAR THE WHOLE BUFFER * 


AND THE BA REGISTER 


* 

* 


1803 

1804 

1805 



TV TV 

TV TV 

TVTVTVTVTVTVTVTVTVTVTVTVTVTVTV*TVTVTVTVTVTVTVTVTVTVTVTVTVTVTVTVTV*<fTVTVTV*^r 


1806 
1807 
1 8Q8 

02437 

02437 

02440 

6 17116 
6 01000 


PROC CLRBUF 
SEL BA 
XMIT QB*R1 



1809 

1810 
1811 _ 

02441 

02442 
02443- 

0 01037 
0 37007 
0 01027 

LWB1 

MOVE R1,BA 

MOVE BA,IVL 

MOVE R1/LB 

*CLEAR BUFFER ADDRESS POINTER 
*ADDRESS BUFFER 

*CLEAR SELECTED BUFFER LOCATION 


1812 

1813 

1814 

02444 

02445 

6 00001 
1 37C37 


XMIT 1,AUX 
ADD BA/BA 
ORG 3*256 

*INCR. ADDRESS BUFFER POINTER 


1815 

1816 
1817 

02446 

02447 
02450 

5 10050 
7 02442 
7 03540 


NZT 0VF,*+2 
JMP LWB1 
RTN 

>-DONE? YES/ SUBROUTINE RETURN 
*N0/ GO TO LWB1 


1818 

1819 

1820 



it 

iV 

END CLRBUF 




1821 

1822 

1823 


02451 


1824 

1825 
.1026- 


PROC BHH 

TV TV Tr TV TV TV TV TV TV TV if iV TV TV TV TV tV Tr TV *A' TV TV *,V TV * Tr TV Tr TV ☆ TV * TV V? TV >V it *.V TV it *,V it TV TV it it * * TV TV TV it TV TV TV it TV it * it it * * TV TV TV TV 
* * 


*THIS SUBROUTINE CHANGE ONE 8 BIT INTEGER FROM SELECTED RIGHT BANK* 
*T0 TWO HEX ASCII CHAR IN R4,R5 * 
* INTERNALREG US ED=R1 *_ 
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18c? 

1828 

1829. 

1830 

1831 
1832. 

1833 

1834 
1835_ 

1836 

1837 


A ☆ ☆ * it it it it it it it it it it it it it ☆ is it it it is it it ☆ ☆ * * *,V iftrte * it it ☆ #☆ ☆☆ * * it it ☆ *-V * isit 


02452 4 01057 

“02454 0 33401 
02455 4 01057 

.02456- JLQ33AQ 

02457 6 04060 
02460 6 04061 


>m 02462 6 04063 
1840 02463 6 04064 


1842 02465 

1843 02466 
-.. - 1*44.-02467 

1845 02470 

1846 02471 

1 847 02472 

1848 02473 

1849 02474 

1850 02475. 

1851 02476 

1852 02477 
1855 0 2500 

1854 02501 

1855 0250? 


6 04066 
6 0406/ 

6 04071 
6 04101 
-6_Q41Q2- 
6 04103 
6 04104 
6 Q4105 

6 04106 

7 02500 
_6_L2113_ 

6 33101 

7 00305 


ORG 50,256 
XEC TAB2CR1 ) 

MOVE -RAj-85. 

MOVE RB3,4/R1 
XEC TAB2(R1) 

RTN 

TAB2 XMIT '0VR4 
XMIT '1',R4 

XMIT ' 2 V R A 

XMIT '3’,R4 
XMIT '4',R4 

XMI T I S _ 

XMIT '6',R4 
XMIT '7'/R4 

X M I T , 8 , ..«B4 

XMIT '9',R4 
XMIT 'A',R4 

XMI T 

XMIT 'C’,R4 
XMIT 'D',R4 

X M I T 1 EUA 

XMIT 'F',R4 
JMP C3 

X3 SEL PHS2 

XMIT 1 /PHS23 
JMP CERR 

T A B 3 SE T T AB2 

END BHH 


* ENCODING L.S. HEX ASCII CHAR 


* ENCODING M.S. HEX ACCII CHAR. 


*SET COMMAND FORMAT ERROR FLAG 
*G0 TO PRINT ERROR ROUTINE 


02503 


PROC HH8 

itisititititiciciticitititititititisisitiiisitititititiciiititisitititicititititititititititititiiititititititititiiititisititisitic-i 


*THIS PROCEDURE CHANGE TWO ASCII CHAR FROM R5,R4 TO 8BIT INTEGER 
*IN R4 


☆ ☆ it * it ☆ it it it it it it it it it it it ☆ * it is V is is it it it v . ☆ it it it it it it ☆ it it it it it it it * ☆ it it it it ☆ ☆ ☆ it it ☆ it * it it is is it it it i 


02504 

02505 
-02506- 
02507 
02510 
o?sii 


02512 

02513 
o?sia 


02515 

02516 


0 04003 
6 00001 

1 Q1QQ1 
4 01057 
0 04000 
3 03004 


5 04105 
0 01003 

A 01000 


6 00001 
4 01057 


MOVE R4,R3 
XMIT 1B,AUX 

ADD R1,R1 

XEC TAB3CR1) 
MOVE R4/AUX 
XOR R3.R4 


NZT R4, J42 
MOVE R1 ,R3 
XMIT 0B.R1 


XMIT 1B#AUX 
XEC TAB3CR1) 


*STORE L.S. ASCII CHAR. IN~Rj~ 


*N0, GO TO J42 

*YES/STORE DECODED L.S. BINARY CHAR. 
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02520 

02521 

02522 

02523 

02524 
J12525_ 

02526 

02527 


6 00020 
1 03003 
- 0 - 04000 — 
3 05004 
5 04115 
4 - 00360 - 
1 03004 
7 03540 


1899 02530 

1900 02530 

1902 02532 

1903 02533 

1904 

1905 02534 

1906 02535 


W»M 


ii 


6 04003 
6 02000 
6 00001 
1 01001 

5 01133 

1 02002 




1908 02537 6 00377 

1909 02540 1 04004 


t vivm* wmvmm hi 


1911 02542 7 03540 

1912 


XMIT 20H/AUX 
ADD R3,R3 

X0R E R5?R4 UX 
N2T R4.J43 

-.-XMlI.p4-_14J 

ADD R3,R4 
RTN 


*ADD 16 TO R3 FOR EVERY INCR. OF INDEX 

COMPARE M.S. ASCII CHAR. WITH DECODE TABLr 

*N0, GO TO J43 

*YFS 


it it it it it it it it * it it irk irk it it it it it it it it it it it it ft * ft & it it it it Vr it it it it iV it ft ft ft ft ft 
it it 

*PROC L500M3 * 


♦COUNTER* R4 R? R1 * 

* * 
£• fr -Jr ft ft Vr £ -.V -ft & ft ft ft ft ft ft- -A- ft ft -A- V- ft ft -A- -.V ft- -ft -ft -ft ft- -ft ft ft -ft- ft- -ft -A- -ft -ft -A- ft- ft; 

PROC L500MS 
XMIT 3,R4 

L5M— XM1T-..QEUR2 

XMIT 1,AUX 
L501 ADD R1.R1 

QRG 3*256 

NZT R1,L501 
ADD R2,R2 


Will 


XMIT -1,AUX 
ADD R4,R4 




RTN 

END L500MS 




: it it it it it it it it it it it it i: it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


ifjrJ 


* SUBROUTINE TO FILL THE BUFFER STORAGE * 

* WITH RANDOM DATA GENERATED BY THE * 


MMnO;»li; L ■ PlWBlHllAilMAt 


* R1 AND R2 ARE USED. 

* R1= SHIFT REGISTER. 


I :rGm af ;* 3 u u :l *vw attKli 3 



it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it r- : 
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1989 

1990 
1991 

0261? 

02620 

_02621_. 

6 17134 
0 00233 


SEL ORSEL 
MOVE AUX, ORSEL 
RTN 

"PHYSICALLY SELECT DR ACCORDING 

i STATUS 

1992 

1993 
1994 



it 

☆ 

END SELDR 



1995 

1996 

1997 



* it it it it it it it it it it it it ☆ it ☆ k m it it * k it it it it it it it ☆ itit it it * it if it it * it it 
it it 

it it 


1998 

1999 

2000 



* SUBROUTINE TO RESTORE 

☆ 

☆ 

TO TRACK 00 * 

☆ 

☆ 


2001 

2002 

2003 



it ft it it it it it it it it it it it it it it it it it 'it it ititk 

it 

it 

* it it it it it it it it it it it it it it it it it it 


2004 

2005 

2006 

02622 

02622 

02623 

6 17134 
6 30100 


PROC RESTORE 
SEL DIR 
XMIT 0B,DIR 

*ONE STEP IN 


2007 

2008 
2009 

02624 

02625 

02626 

6 31100 
6 02367 
6 00001 


XMIT OB, STEP 
XMIT 377H-8,R2 
XMIT 1,AUX 

*1USEC NEGATIVE PULSE 
**WAIT TIME=3MSEC FOR SEEK 


2010 

2011 

2012 

02627 

02630 

02631 

1 01001 
6 31101 
-5-01227 

J19 

ADD R1,R1 
XMIT IB, STEP 
N2T R1,J19 



2013 

2014 
201-5 

02632 

02633 
02614 

1 02002 

5 02227 

6 17135 


ADD R2,R2 
NZT R2,J19 
SEL TROO 



2016 

2017 

2016 

02635 

02636 

02637 

0 30100 
5 00240 
7 02641 


MOVE TROO,AUX 
NZT AUX,*+2 
JMP *+2 

TRACK 00? MO, GO TO J21 
*YES 


2019 

2020 
2021 

02640 

02641 

7 02645 
4 06274 

J12 

JMP J21 

ORG 75,256 

XEC LTABCR6) 

*SELECT CORRECT CTR 


2022 

2023 

02642 

02643 

02644 

6 00000 
0 00037 
7 02676 


XMIT OB,AUX 
MOVE AUX,RB 
JMP LI 00 

■■•CLEAR CTR. DEFAULT TO SIDE 0. 


2025" 

2026 

2027 

02645 

02646 

6 00001 
6 03261 

J21 

XMIT 1,AUX 
XMIT 377H-78,R3 
ORG 20,256 

■•TRACK COUNTER 


2028 

2029 

2030 

02647 

02650 

02651 

6 17134 
6 30101 
6 31100 

J10 

SEL DIR 
XMIT IB, DIR 
XMIT OB* STEP 

*ONE STEP OUT 

*1 US EC NEGATIVE PULSE 


2031 

2032 

2033 

02652 

02653 

02654 

6 02367 
6 00001 
1 01QQ1 

J13 

XMIT 377H-8,R2 
XMIT 1 ,AUX 
ADD R1,R1 

**DELAY 3 MSEC 


2034 

2035 

2036 

02655 

02656 

02657 

6 31101 
5 01254 
1 02002 


XMIT IB, STEP 
NZT R1,J13 
ADO R2,R2 



2037 

2038 

2039 

02660 

02661 

5 02254 

6 17135 


NZT R2,J13 
SEL TROO 
ORG 3,32 



2040 

2041 

02662 

02663 

02664 

5 30124 
7 02641 
1 03003 

J11 

NZT TROO, J 1 1 
JMP J 1 2 
ADD R3,R3 

*TRACK 00? NO, GO TO J11 
*YES, GO TO J12 
*INCR. TRACK COUNTER 
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2043 

02665 

5 03247 


MZT R3,J10 

♦STEP MORE THAN 78 TIMES? NO, GO TO J10 

2044 

02666 

4 06274 


XEC LTAB(R6) 

*TES, SCORRECT CURRENT TRACK REG. 

2045 

02667- 

6 QQ172 


XMIT 3?7H,AUX 

♦SET POSITION NOT KNOWN £LASL 

2046 

02670 

0 00037 


MOVE AUX,RB 

♦SET POSITION NOT KNOWN FLAG IN CTR 

2047 

02671 

6 17112 


SEL PHS1 


2048 

02672 

6 34101 


XMIT 1B,PHS14 

*SET POSITIONING ERROR FLAG 

2049 

02673 

7 00305 


JMP CERR 

♦PRINT ERROR ROUTINE 

2050 

02674 

6 17110 

TT1 

SEL CTR1 


_ 21)51 

02675 

6 17111 


SEL CTR2 


2052 


002674 

LTAB 

SET TT1 


2053 

02676 

6 01266 

LI 00 

XMIT 255-73, R1 

♦20MS HEAD SETTLING TIME 

2Q5A.. 

02677 

6 00001 


XMIT 1.AUX 


2055 

02700 

1 02002 

HST1 

ADD R2,R2 


2056 

02701 

5 02300 


NZT R2,HST1 


__ 2Q57 

_Q2Z02 

1 01001 


ADD R1,R1 


2058 

02703 

5 01300 


NZT R1,HST1 


2059 

02704 

7 03540 


RTN 


-2060 




END RESTORE 


2061 



is 



2062 



is 



. - _ 2063 



is it it is is it is it is it it it it it it it it it it it it is it it it it it it it it it is it it it it it it is it 

2064 



it 


it 

2065 



is 


it 

2066 



_ * SUBROUTINE SEEK 

it 

2067 



* R5* 

CURRENT TRACK REG. 

it 

2068 



* R3= 

DESTINATION TRACK REG. 

it 




. * R4= 

WORKING REG. 

it 

2070 



it 


is 

2071 



it 


it 

2072 



it it it it it it it it is it it is it it it it is it it it it it it it it it is it it it it is it is it it it it it it 

2073 



it 



2074 

02705 



PROC SEEK 


2075 

02705 

4 06274 


XEC LTABCR6) 

.♦SELECT CORRECT CURRECT TRACK KfLG. 

2076 

02706 

0 37705 


MOVE RB,7,R5 

*STORE C. TRACK IN R5 

2077 

02707 

0 05000 


MOVE R5,AUX 


2078 

02710 

3 03000 


XOR R3.AUX 


2079 




ORG 3,256 


2080 

02711 

5 00313 


NZT AUX,*+2 

*C. TRACK=D. TRACK? 

2081 

02712 

7 00240 


JMP OK 

*YES, BACK m IDLE LOOP 

2082 

02713 

6 00377 

DNEC 

XMIT -1,AUX 

*2'S COMP D. TRACK 

2083 

02714 

3 03004 


XOR R3,R4 


2084 

02715 

6 00001 


XMIT 1 ,AUX 


2085 

02716 

1 04000 


ADD R4,AUX 

*STORE IN AUX 

2086 

02717 

1 05004 


ADD R5,R4 

*R4 =C . TRACK - D. TRACK 

2087 

02720 

6 00001 ... 


XMIT 1 ,AUX 


2088 

02721 

2 04704 


AND R4(7),R4 


2089 

02722 

5 04327 


NZT R4,D6TC 

*D. TRACK> C. TRACK ? 

2090 

02723 

6 17134 


SEL DIR 

♦NO 

2091 

02724 

6 30101 


XMIT 1 ,DIR 

♦STEP OUT 

2092 

02725 

6 04377 


XMIT -1 ,R4 

♦DECR. INDEX 


02726 

7 02732 


IMP LSP 


2094 

02727 

6 17134 

DGTC 

SEL DIR 

*YE$ 

2095 

02730 

6 30100 


XMIT 0,DIR 

♦STEP IN 

2096 

02751 

6 Q4Q01 


XMIT USA 

♦INCR. INDEX _ 
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2097 

2098 

2099 

02732 

02733 

02734 

6 17134 
6 31100 
6 02367 

LSP 

SEL STEP 
XMIT 0,STEP 
XMIT 377H-8,R2 

*NEG. STEP PULSE 
**DELAY 3MSEC 


2100 02735 6 00001 

2101 02736 1 01001 

210202237 6 31 101 

L10MS 

XMIT 1,AUX 
ADD R1,R1 
XMIT 1 (.STEP 

*S TART DELAY 


2103 

2104 
21Q5 

02740 

02741 

02742 

5 01336 
1 02002 
5 02336 . 


NZT R1,L10MS 
ADD R2,R2 
NZT R2,L10MS 

*END DELAY 


2106 

2107 

21Q8 

02743 

02744 

02745 

0 04000 

1 05005 
0 05000 


MOVE R4,AUX 
ADD R5/R5 
MOVE R5,AUX 

’-UPDATE C. TRACK 


2109 

2110 
2111 

02746 

02747 
02750 

3 03000 
5 00351 
7 02752 


XOR R3,AUX 
NZT AUX,*+2 
JMP *+2 

*D. TRACK=C . TRACK? 
*YES 

NO, GO TO DNEC 

2112 

2113 

2114 

02751 

02752 

02753 

7 02713 
4 06274 


JMP DNEC 
XEC LTAB(R6) 
MOVE R5,7,RB 

*SELECT CORRECT CTR 
’•RESTORE CTR VALUE 


2115 

2116 
2117 

02754 

02755 

7 02760 
6 17113 
002755 

LSK 

LSKE1 

JMP L101 
SEL PHS23 
SET LSK 

*BACK TO IDLE LOOP 


2118 

2119 

02756 

02757 
02760 

6 33101 

7 00305 
6 01266 

LERRC 
LI 01 

XMIT 1,PHS23 
JMP CERR 
XMIT 255-73,R1 

*SET COMMAND FORMAT ERROR FLAG 
*20MS 0 HEAD N SETTLIN6 R TIME NE 

2121 

2*22 

2123 

02761 

02762 

02763 

6 00001 
1 02002 
5 02362 

HST2 

XMIT 1 ,AUX 
ADD R2,R2 
NZT R2,HST2 



2124 

2125 
7 126 

02764 

02765 

02766 

1 01001 
5 01362 
7 03540 


ADD R1,R1 
NZT R1,HST2 
RTN 



2127 

2128 
2129 



* 

it 

END SEEK 



2130 

2131 

02767 


PROC SEEK1 

it it it it it it it it is it is it it is it it is it is it it it it it it it it it it it it it it it it it it it is it is it it it it it 





it 


is 


2133" 
2134 
_ -2131- 



*TH2S 
*AND 1 

fr-IME,. 

SUBROUTINE MAKES <R2) STEPS * 

WAIT 20 MSEC FOR HEAD SETTLING TIME * 

PI RECI1QN HAS .IQ-fif -SET-6 EfQR S . .CALL- * . 



2136 

2137 


*USED REGISTERS AUX,R2,R3,R4 

* 

☆ it it is it it it it it is is it it 'it it it it it it it it is is it it is it it it it it it it is it it it it it it it it it -it it* it 


it 

it 


2139 

2140 

2141 



it 

it 

ORG 9,256 





2142 

2143 

2144 

02767 

02770 

02771 

5 02377 

6 03111 
6 00377 

J243 

J246 

NZT R2,J242 
XMIT 73#R3 
XMIT 255 # AUX 

*A**START 20MS HEAD SETTLING TIME 
*MPI=20MS SA-1 5MS 




2145 

2146 

2147 

02772 

02773 
Q2774 

1 04004 
5 04372 
1 03003 

J247 

ADD R4,R4 
NZT R4,J247 
ADD R3 # R3 

’-WAIT ROUTINE FOR 15 MSEC 




2148 

2149 
211Q- 

02775 

02776 

02777 

5 03372 
7 03540 


NZT R3,J247 
RTN 

SEL STEP 

’-END OF HEAD SETTLING TIME 
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2151 

2152 
_ 2153 

03000 

03001 
03QQ2 

6 31100 
6 00377 


XMIT Q,STEP 
XMIT 255, AUX 
SEL RMOD 

*AUX=-1 

2154 

03003 

6 31101 


XMIT 1 ,RMOD 

*TURN ON TICKLER 

2155 

03004 

6 17001 


SEL PLLS 


2156_ 

Q3QQ5 

6 37100 


XMIT Q,PLLS 

*PLL FOR TICKLER 

215? 

03006 

6 17134 


SEL STEP 


2158 

03007 

6 03014 


XMIT 12, R3 

**STEP TIME 3 MSEC 

2159 

03010 

1 02002 


ADD R2.R2 

*DECR NO. OF ..STEPS 

2160 

03011 

6 31101 


XMIT 1 ,STEP 

*END 1 USEC STEP PULSE 

2161 

03012 

1 04004 

J245 

ADD R4,R4 

*START 3MS SEEK TIME 

. 2162 

03013 

5 04012 


NIT R4..J245 


2163 

03014 

1 03003 


ADD R3,R3 


2164 

03015 

5 03012 


N2T R3,J245 

*END OF SEEK TIME DELAY 

2165 

0301 6 

7 02767 ... 


JMP J 243 


2166 




END SEEK1 


2167 



it 



2168 



* 



2169 



* 



2170 



☆ 



2171 



irititititititititititititicititititifititit it ☆ * * it it ifir * it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 

2172 



it 


it 

2173 



*PROC 

11 


2174 



^SUBROUTINE TO CONVERT ONE ASCII INTEGER TQ BINARY * 

2175 



*R3 AND R4 ARE USED 

it 

2176 



*R4= 

ASCII INPUT 

it 

2177 




BINARY OUTPUT 

it 

2178 



it 


it 

2179 



itititititititititititititititititititititititititititititititititititititititititititititititiiititititititititititit 

?ian 

03017 



PRQC 11 


2181 




TESTD R4,R3,LEQI1 

*TESTD MACRO 

2181 

03017 

6 00360 

4 

XMIT 36QH,AUX 


2181 

03Q20 

2 04003 

4 

AND R4,R3 

*MASK 4 MSB OF R4 

2181 

03021 

6 00060 

4 

XMIT 060H,AUX 


2181 

03022 

3 03003 

4 

XOR R3,R3 


2181 

03023 

5 03032 

4 

N2T R3AEQI1 

*4 MSB=3 HEX? NO, GO TO LNTEQ 

2181 

03024 

6 00017 

4 

XMIT 17H,AUX 

*YES 

2181 

03025 

2 04003 

4 

AND R4,R3 

*STORE 4 LSB IN R3 

2181 

03026 

6 00366 

4 

XMIT 366H,AUX 

*AUX= 377H-9H __ 

2181 

03027 

1 03000 

4 

ADD R3,AUX 


2181 

03030 

5 10032 

4 

NZT 0VF,LEQI1 

*4 L.S.B.>9? YES, GO TO LNTEQ 

2181 

03031 

7 03035 

4 

JMP *+4 ^ 

*N0. EXIST MACRO, 

2181 

03032 

6 17113 

+LEQI1 

SEL PHS23 

*YES. SET COMMAND FORMAT ERROR FLAG 

2181 

03033 

6 33101 

4 

XMIT 1 ,PHS23 


.. 2181 

03034 

7 00305 

4 

JMP CERR 

*G0 TO PRINT ERROR ROUTINE 

2182 

03035 

7 03540 


RTN 


2183 




END 11 

*END 11 SUBROUTINE 

2184 



ititititititititisitiei:itititititifiti:ititititititititi:itititititititititititititiiititititititititititititititi:ititit m 

2185 



it 



2186 



*PROC 

12 

it 


21MZ ^SUBROUTINE JQ._CQNVERT TWO ASCII INTEG ER TO BINARY 

2188 *R1,R3,R4 AND G3 ARE USED 

2189 *R3,R4= TWO ASCII INPUT (D1D2) 

2150 *R3= BINARY OUTPUT 
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2191 



*R1,G3= WORKING RE6ISTER 

☆ 


2192 



☆ 

☆ 


21 S3 



itiiitititititiiisitititiiititititititititititititititititititititititizititititititizit^ititiritiziiitititiiit'kicititi: 


2194 

03036 


PROC 12 



2195 

03036 

6 17124 

SEL G3 



2196 

.U3Q3Z 

& 00376 

XMIT 377H-1H,AUX 



2197 

03040 

0 00037 

MOVE AUX,G3 

*LOAD COUNT OF 2 ASCII INPUT 


2198 



LNBKI2 TESTD R4,R1,L£QI2 

*ASCII TO BINARY MACRO 


2198 

03041 

6 00360 

♦ XMIT 36QH,AUX 



2198 

03042 

2 04001 

+ AND R4,R1 

*MASK 4 MSB OF R4 


2198 

03043 

6 00060 

+ XMIT 060H,AUX 



. 2198 

03044 

3 01001 

+ XOR R.L.R1 



2198 

03045 

5 01056 

+ N2T R1,LEQI2 

*4 MSB=3 HEX? NO, GO TO LNTEQ 


2198 

03046 

6 00017 

+ XMIT 17H,AUX 

*YES 


2198 

03047 

2 04001 

♦ AND RA,R1 

*STORE 4 LSB IN.R3 


2198 

33050 

6 00366 

+ XMIT 366H,AUX 

*AUX= 377H-9H 


2198 

03051 

1 01000 

+ ADD R1,AUX 



2198 

03052 

5 10054 

♦ NIT 0VF,LEQI2 

*4 L.S.B.>9? YES, GO TO LNTEQ 


2198 

C3053 

7 03057 

+ JMP *+4 

*N0. EXIST MACRO. 


2198 

03054 

6 17113 

+LEQI2 SEL PHS23 

*YES. SET COMMAND FORMAT ERROR FLAG 


2198 

03055 

6 33101 

+ ..... XMIT 1,PHS23 



2198 

0.3056 

7 00305 

+ JMP CERR 

*G0 TO PRINT ERROR ROUTINE 


2199 

02057 

6 00001 

XMIT 1,AUX 



2200 

n?06n 

1 37037 

ADD G3,G3 

*INCR. COUNT OF ASCII INPUT 


2201 

03061 

5 10065 

NZT 0VF,LZI2 

*1 ST PASS? NO,GO TO LZI2 


2202 

03362 

0 03004 

MOVE R3,R4 

*YES . SET UP R3 FOR MACRO 


27m 

03063 

0 01003 

MOVE R1,R3 

*STORE LS BINARY RESULT IN R3 _ _ _ 


2204 

03064 

7 03041 

JMP LNBKI2 



2205 

03065 

0 01504 

LZI2 MOVE R1(5),R4 

*D1X8 



030 66 

0 03700 

_ MOVE R1 (7>,AUX 

*01X2 _ . 


2207 

03067 

1 04000 

ADD R4,AUX 

*D1X10 


2208 

03070 

1 03003 

ADD R3,R3 

*D1X10+D2 


2209 

03071 

7 03540 

.... RTN 



2210 



END 12 

*END 12 SUBROUTINE 


2211 

03072 


PROC PREP 



2212 



it it it it it it it it i: it it it it it it it -Ar it it it it it * ☆ ☆ it * it it * * * it it it it it vV it ☆ ☆ it it it ☆ * * *V it it 


2213 



it 

it 


2214 



^PREPARATION FOR READ 

it 





*THIS SUBROUTINE LOAD THE HEAD,,. CHECK FOR DISK * 


2216" 



*CHANGE, DRIVE READY, INITIALIZE 8X330 FOR SD OR * 


2217 



*DD AND LET THE CTR ADDRESS 

IN R4 AND R1. * 


2218 



i Sr 

it 


2219 



*USEO REGISTERS 5 AUX,R2,R3, 

R4 AND R1 * 


2220 



* 

* 


2221 



it it it sfr it it it it it ☆ it it it it it it it it * ☆ it ; ? * it it * it * it it * it * it it it it * ☆ it * * it * it it it it ☆ ☆ 


2222 

03072 

6 17115 

SEL PSCS 



2223 

03073 

6 32301 

XMIT 1,PSCS 

*SET PROG. STATUS TO PREPARATION FOR R/W 


2224 

03074 

6 17114 

SEL STAG 



2225 

03075 

6 04111 

XMIT CTR2/R4 

*STORE CTR2 ADDRESS IN R4 


2226 

03076 

6 03001 

XMIT 01B,R3 

AD* 


2227 

03077 

7 03100 

ORG 3,32 



2228 

03100 

5 30103 

NZT STA0/J100 

* DRIVE 2 SELECTED? YES, GO TO J 1 00 


2229 

03101 

6 03002 

XMIT 1QB,R3 

it $it 

* 

2230 

03102 

6 04110 

XMIT CTR1.R4 

*N0, STORE CTR1 ADDRESS IN R4 
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2231 

03103 

0 04017 

J100 

MOVE R4,IVR 

*SELECT CTR ACCORDING TO STATUS. 

2232 

03104 

6 00001 


XMIT 1H,AUX 


. _ 2213 

.03105 . 

1 170(1? 


ADO RB,R2 

*N0T KN0WN=FF+1=Q .. 

2234 

03106 

5 02112 


NZT R2/J101 

*P0SITI0N NOT KNOWN? NO, GO TO J101 

2235 

03107 

6 17112 


SEL PHS14 


2236 

03110 

6 34101 


XMIT 1 H,PHS1 4 

*YES- SET POSITIONING ERROR FLAG 

2237 

03111 

7 00305 


JMP CERR 

*G0 TO PRINT ERROR ROUTINE 

2238 

03112 

6 17134 

J101 

SEL DRSEL 


... 2239 

03113 

0 Q52J3 


MOVE R3,DRS£L 

^PHYSICALLY SEL DRIVE ACCORDING TO STATUS 

2240 

03114 

6 02000 

J106 

XMIT 0H,R2 

^TEMPORARY SEL SIDE 0 

2241 

03115 

0 04017 


MOVE R4,IVR 

*SaECT CTR. ACCORDING TO STATUS 

2242 

03116 

5 30120 


NZT CTR1S,J107 

*IF SIDE 1 IN CTR. GO TO J107. 

2243 

03117 

6 02001 


XMIT 1,R2 

TEMPORARY SELECT SIDE 1. 

2244 

03120 

6 17134 

J107 

SEL DCOM 

*SELECT DISK COMMAND REGISTER 

224S 

03121 

0 02134 


MOVE R2.SIDE 

*PHYSICALLY SELECT DRIVE ACCORDING TO R2 

2246 

03122 

6 00001 


XMIT 1,AUX 


2247 

03123 

6 02370 


XMIT 377H-7/R2 

Vs 


03124 

1 0200 2 

LP1 

ADD R2.R2 

*J*WaIT FOR READY STATUS 

2249 

03125 

5 02124 


NZT R2,LP1 


2250 

03126 

6 17132 


SEL READY 


2251 




ORG 3,32 


2252 

03127 

5 37131 


NZT READY, J102 

*J.F NOT READY, GO TO J102 

2253 

03130 

7 03134 


JMP J103 

* DRIVE READY. 

2254 

03111 

6 17113 

J1Q2 

SEL PHS21 


2255 

03132 

6 31101 


XMIT 1H,PHS21 

’'SET DRIVE NOT READY FLAG 

2256 

03133 

7 00305 

J104 

JMP CERR 

*G0 TO PRINT ERROR ROUTINE 

2257 

03134 

^ 1 71 34 

J 10.3.. 

SEL HEAD 


2258 

03T35 

6 35100 


XMIT OH, HEAD 

♦HEAD LOAD 

2259 



* 



2260 



^INITIALISATION OF 8X330 


2261 



Vr 



2262 

03136 

6 17114 


SEL STA 


2263 

03137 

6 02105 


XMIT 01000iniB,R2 

* INIT. 8X330. FOR SD .... 

2264 

03140 

6 00002 


XMIT 10B,Ai 


2265 

03141 

3 36200 


XOR MODU,AU. 



03142 

5 00144 


NZT AUX*C5 

*IF NOT SINGLE DENSITY. GO TO J108. 

2267 

03143 

7 03150 


JMP J108 


2268 

03144 

6 00000 

C5 

XMIT 0H,AUX 


2269 

03145 

3 36200 


XOR MODU aAUX 


2270 

03146 

5 00166 


NZT AUX,J111 

*IF NOT DD. GO TO Jill. 

2271 

03147 

6 02101 


XMIT 01 000001 B,R2 

INITIALISATION OF 8X330 FOR DD. 

2272 

03150 

6 17133 

J108 

SEL MCOM 


2273 

03151 

0 02037 


MOVE R2,RB 

*8X330 INITIALIZED. 

2274 

03152 

6 17001 


SEL PLLS 



■iRRI 

ilium 




2276 

* 



DELAYP J109,377H-140,R2,R3 **DELAY 40MS. HEAD LOAD TIME DELAY 

2276 

03154 

6 03163 

♦ 

XMIT 377H-140,R3 

*START DELAY LOOP 

??^ 

Q3155 

6 00001 


XMIT 1 ,AUX 


2276 

03156 

1 02002 

+J109 

ADD R2,R2 


2276 

03157 

5 02156 


NZT R2,J109 


2276 

03160 

1 03003 

+ 

ADD R3,R3 


2276 

03161 

5 03156 

♦ 

NZT R3,J109 

*END DELAY LOOP 

2277 



*DELAY 40MS FOR THE HEAD 

SETTLING TIME 

2278 

01162 

6 17114 


SEL STA 
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2279 

03163 

6 31101 

XMIT 1H/STA1 

*SET HEAD LOAD STATUS 


2280 

03164 

0 04001 

MOVE R4,R1 

*C0PY CTR ADDRESS IN R1 


- 2281 

Q3165 

7 0^40 

RTN 



2282 

03166 

7 01041 

Jill JMP MOERR 

*N0T USED MEDIA FORMAT 


2283 



ft 



_ 2284 



*END OF PREPARATION FOR READ 


2285 



ft 



2286 



END PREP 



2282- 



it ft ft ft ft ftit ft ft ft ft ft iSr it itit it it it it ft ft ft ft ft ft ft ☆ ft ft ft ft ft ft ft ft ft ft ft * it ☆ ft ft ft ☆ ft ☆ & ft V? * ☆ ☆ ft ☆ iSr ☆ * ft ☆ ☆ ☆ iSr * ft * ☆ ☆ 

2288 



☆ 


ft 

2289 



*PREAMABLE SEARCH SD+DD 

(PREAM) 

ft 

2290 



* 


ft 

2291 



*THIS ROUTINE SEARCHES FOR 

ONE PREAMBLE BYTE. IF AFTER 10MSEC, NO 

ft 

2292 



^PREAMBLE HAS BEEN FOUND. 

THE TiCKLER WIL TURN ON FOR 20uUS. 

ft 

2293 



»TH1S SEQUENCE HILL BE REPEATED FOR 3 REVOLUTIONS. 

ft 

2294 



*ENTRY POINT PRSEB IS FOR 

CONTINUATION WHEN THE CODE FOUND BY AMXX 

ft 

2295 



*D0ES NOT MATCH 


ft 





.R5.R4 

ft 

2297 



*TIME OUT= lOMSEC 


'ft 

2298 



'ft 


ft 

2299 



ft 


ft 

2300 



itftftftitititftititizftitititititititititititititititititititititit ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ftf% VA ft ft ft ft ft ft ft ft it ft ft it ft ft ft ft 

2301 



ft 



2102 

0116? 


PROC PRFAM 



2303 

03167 

0 11005 

MOVE R11/R5 

*SAVE SUBROUTINE RETURN JUMP INDEX IN 

R5 

2304 

03170 

6 17115 

SEL PSCS 








2306 

03172 

6 17112 

SEL PHS1 



2307 

03173 

6 32101 

XMIT 1.PHS12 

*PRELIMINARY NO I.D. 


■■■FFiTJl 


6 17133 




2309 

03175 

6 31100 

XMIT OH/RMOD 

*TURN ON READ MODE. CNT R2 R3 


2310 

03176 

6 04316 

XMIT 256-50. R4 

*COUNT OF TICKLER FOR 3 REVOLUTIONS 








2312 

03177 

6 02374 

J606 XMIT 377H-3/R2 

**1 OMS TIME OUT FOR PREAMBLE AND AM 


2313 



ENTRY PRSEB 

^CONTINUATION OF PREAMBLE SEARCH 




wmaxam 




2315 

03201 

6 17114 

SEL MODU 



2316 

03202 

5 36204 

NZT M0DU,*+2 

ftfaft 




■ ■IIH — 

(1 * EWW 'J*WKNKHHK 

*A* 3 PREAMBLE BYTES FOR D.D. 


2318 



ORG 15/256 



2319 

03204 

6 17001 

J123 SEL PLLS 





Mill — 


£ m J IS i§] :■ J :i 1 1 ;] 1 


2321 


003200 

PRSEC SET JC123 

*A*ENTRY POINT AFTER ID ERROR FROM CHID 


2322 

03206 

6 17132 

SEL AMNI 

** 



03207 

6 33306 

XMIT 1 1 OB/ AMNI 

ft j[ m Q s PREAMBLE SEARCH MODE 


2324 



ORG 7/32 



2325 

03210 

6 17132 

PR1 SEL ST330 




liton 

■ ■1 llli — 

1 ft M -¥i f &FI SI It WKM m 



2327 

03212 

6 17137 

SEL FDAT 



2328 

03213 

0 37000 

MOVE FDAT/AUX 






ORG 5 f 32 



2330 

03214 

5 00225 

NZT AUX/J121 

*IF NOT PREAMABLE BYTE. GO TO J121. 


2331 

03215 

6 00001 

XMIT 1/AUX 

*A* 


2332 

03216 

1 06006 

ADD R6.R6 

*A*INCREMENT no. of preamble bytes 



% 





PROG FDC 


MICROCONTROLLER CROSS ASSEMBLER VER 2.0 


PAGE 50 


2333 

03217 

5 06204 

NZT R6,J123 

*A* 

2334 

03220 

6 17132 

SEL AMNI 


2335 

03221 

6 33305 

XMIT 101B,AMNI 

***START AM SEARCH, ENABLE CRC Aiyp NIBBLE 

2336 

03222 

6 17001 

SEL PLLS 


2337 

03223 

6 37101 

XMIT 1 ,PLLS 

*SET PLL FOR DATA PART 

2338 

03224 

7 03540 

RTN 


2339 

03225 

6 00001 

J121 XMIT 1H,AUX 

*START OF 10MS TIMING LOOP 

2340 


003225 

AMSEC SET J 1 21 

*A*ENTRY POINT FOR AMDI OR AMSI 

2343 

03226 

1.Q3003 

ADD R3,R3 


2342 

03127 

5 03200 

NZT R3/JC123 

*A* 

2343 

03230 

1 02002 

ADD R2,R2 




■ Mi ■>— 


*A**10MS TIME OUT? NO* GO BACK FOR PREAMBLE 

2345 

03232 

6 17132 

SEL ST330 

*YES 

2346 



ORG 3,32 







2348 

03234 

7 03236 

JMP *+2 


2349 

03235 

7 03247 

JMP J125 



Mnwm 




2351 

03237 

6 31101 

XMIT 1H,RM0D 

’•SWITCH TICKLER ON 

2352 

03240 

6 02043 

XMIT 377H-220,R2 

**TURN ON TICKLER FOR 200US 

■■nvEl 

■•ran 

■ ■INI — 

p W p Mm—iiin 


2354 

03242 

5 02241 

NZT R2,J124 

* 

2355 

03243 

6 31100 

XMIT 0H,RM0D 

*TICKLER OFF 




— »T »W W f Wiflmll 

; f J frt i ft]? ■ IlyiVKiW - * ; ws* 

2357 

03245 

5 04177 

NZT R4,J606 

*REVOLUTION TIME OUT? NO, GO TO J606 

2358 

03246 

7 00305 

JMP CERR 

*G0 TO PRINT READ ID ERROR OR NO ID DETECTE 



6 17113 


■■■ llfca Ill'll 'Ilia 1 Ml 1 Mil 

2360 

03250 

6 31101 

XMIT 1H,PHS21 

*NOT READY ERROR 

2361 

03251 

6 17112 

SEL PHS1 



■TtFX-Fa 




2363 

03253 

7 00305 

JMP CERR 

*G0 TO PRINT ERROR ROUTINE 

2364 



END PREAM 


mmtmm 



•sV it iJr itit it it it it ifr it it it it ☆ itit it ☆ He it it it it * it ☆ it iSr it ☆ it it it it it ☆ ☆ it it it it it iSr iSr it it ☆ ☆ ☆ ☆ ☆ it it it iSr 

2366 



'it 

it 

2367 



*ID-AM SEARCH FOR DD 

(AMDI) * 

2368 



it 

it 

2369 



*THIS ROUTINE CHECK DD 

-AM CODING (A1,A1,A1,FE> * 

2370 



*IF THE CODING DOESNOT 

MATCH CALL PRSEB * 

2371 




2372 



☆ 

☆ 

2373 



it 

* 




itititititititititititititititititititititititititititititititititititititititititititititititiritititititititit 

2375 

03254 


PROC AMDI 


2376 



ORG 8,32 




■ ■INI — 

HHNHHHHHHV 1*1 sJPIf 

*A* 

2378 

03255 

0 05011 

J126 MOVE R5,R11 

*REST0RE SUBROUTINE RETURN INDEX OF PREAM 

2379 

03256 

7 03225 

JMP AMSEC 

*G0 BACK TO PREAMBLE SEARCH 



6 17132 

HHiKlvwT3 vi ftiniHHi 


2381 

03260 

5 36117 

NZT BYTRA,J135 

*WAIT FOR FIRST NIBBLE 

2382 

03261 

6 00104 

XMIT 104H,AUX 



■•rasa 

■ ■Mil — 




2384 03263 6 17137 SEL FDAT 

2385 03264 3 37000 XOR FDAT,AUX COMPARE 1ST NIBBLE 

2386 ORG 28.256 
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2441 

2442 

2444 03337 6 17TT3" 

2445 03340 6 00003 


244703342500352 
2448 03343 6 07000 




2450 03345 3 27000 

2451 03346 6 37201 

2452 03347 5 00351 


2453 03350 6 37202 

2454 03351 7 00305 




END AMS I 


SEL PHS2 
XMIT 3/AUX 
XO R PHS2# 2 j 
NZT AUX/C3< 
XMIT 0,IVL 




XOR LB,AUX 
XMIT 01B,PHS27,2 
NZT AUX.E1 


XMIT 10B,PHS27,2 
JMP CERR 


*DELETED OR DEFLECTIVE RECORD AM? YES, CT2 


*C0MPARE 1ST DATA IN DEL OR DEF REC WITH C4 
*SET DELETED DATA AM 

ED RECORD? YES, GO TO PRINT ERROR 


*SET DEFECTIVE RECORD AM 





HT.T1 


03353 




03354 

03355 


6 17116 
0 37001 


03357 6 17132 


rITABiW4iV»f4kN 


03361 

03362 


6 17137 
0 01007 


wa 


03364 

03365 


1 01001 
1 02002 




03367 

03370 

03.400. 

03401 

03402 
01403 

03404 

03405 
03406. 
03407 

03410 

03411 

03412 

03413 


6 02375 

7 03400 
-6-12132- 
6 31100 

5 36100 

6 12132- 

0 01007 

0 37027 

1 fll Q fll 
1 02002 

5 02000 

6 17116 
0 01037 

7 03540 


☆ it it it it it is itititititititititit is it ☆ * it it it it it it it it it it it it it it it it it 
it it 


*READ IDENTIFIERS (RI1) * 

*SERVICE COMMAND * 

it it 


it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it it 


PROC RI1 




SEL BA 
MOVE RB,R1 


ORG 8,32 
J131 SEL ST330 




SEL FDAT 
MOVE R1,IVL 




ADD R1,R1 
ADD R2,R2 
NZT R2-J1 


XMIT 256*3, R2 
ORG 10,256 

SEL COM 

XMIT OH,CRCE 
NZT BYTRA,J132 

SEL-F-DAT 

MOVE R1,IVL 
MOVE RB,LB 

ADD. R1,R1 

ADD R2,R2 
NZT R2,J132 

SEL BA 

MOVE R1,BA 
RTN 


EaM=ll 




mm 


*FETCH CURRENT BUFFER ADDRESS 




*YES 

*ADDRESS BUFFER 




*INCR. ADDRESS POINTER 
*INCR. ID LENGTH COUNTER 
*DONE? 


*YES, SET COUNT FOR 1 CRC + 2 CRC REMAINDER 


*STOP CRC GENERATION 
*WAIT FOR 2ND CRC 

"ADDRESS BUFFER 

*LOAD ID DATA INTO BUFFER 

*INCR. BUFFER ADDRESS 

*INCR. COUNT 
* DONE? NO, GO TO J132 


*RESTORE CURRENT BUFFER ADDRESS 


AND CRC REM 
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2495 “ ~~ * 

2496 •ftiiic'k'irk kitirititltitit'k'k'kitltltit it iSf it it ☆ it it ☆ ☆ ☆ it irk** it *,V * ☆ 

2492 * * 

2498 * CHECK IDENTIFIER SUBROUTINE * 

2499 * AUX/R4/R5 AND R11 ARE USED * 

2500 , * 1 


2501 

2502 
25Q1_ 

03414 

03414 

6 01000 

☆ ☆ ☆ it it it it it it it it it it it it it it it * it it it it * it * 

PROC CHID 
XMIT 0H.R1 

it it i Sr it it it it it it it it it it it 

♦SET PRELIMINARY OK FOR CHID 


2504 

2505 

2506 

03415 

03416 

6 17132 
5 36115 

J203 

ORG 2/32 
SEL ST330 
NZT BYTRA,J203 

♦WAIT FOR CURRENT TRACK INFO 


2507 

2508 

2509 

03417 

03420 

6 17114 
4 30122 


SEL STA 
ORG 70/256 
XEC TAB6CSTA0) 

*SEL CURRENT TRACK REG. ACCORDING TO STATUS 


2510 

2511 

03421 

03422 

03423 

7 03424 
6 17110 
6 17111 

TAB6 

JMP CIO 
XMIT 1 10H/IVR 
XMIT 111H.IVR 

*SEL CURRENT TRACK REG. 1 
♦SEL CURRENT TRACK REG. 2 


2513 

2514 

2515 

03424 

03425 

03426 

0 37700 
6 17137 
3 37000 

CIO 

MOVE RB/7/AUX 
SEL FDAT 
XOR RB.AUX 

♦CURRENT TRACK TO AUX (7 BITS) 
•'COMPARE TRACK 


2516 

2517 

2518 

03427 

03430 

5 00110 

6 17132 

1205 

ORG 50/256 
NZT AUX/J204 
SEL ST33Q 

♦IF TRACK ERROR GO TO J204 
♦CORRECT TRACK 


2519 

2520 

7571 

03431 

03432 

03433 

5 36130 

6 17114 
4 30122 


NZT BYTRA/J205 
SEL STA 

XEC TAB6CSTA0) 

*WAIT FOR SIDE INFO 

it 


2522 

2523 

2524 

03434 

03435 

03436 

0 30100 
6 17137 
3 37000 


MOVE RB0/1/AUX 
SEL FDAT 
XOfi Rfl/AUX 

ASIDE TO AUX 
♦COMPARE SIDE 


2525 

2526 

2527 

03437 

5 00112 


ORG 43/256 
NZT AUX/J206 
ORG 2,32 

*IF SIDE ERROR. GO TO 206 


2528 

2529 

2530 

03440 

03441 

03442 

6 17132 

5 36100 

6 17117 

J2C7 

SEL ST330 
NZT BYTRA/J2Q7 
SEL SS 

♦CORRECT SIDE 

♦WAIT FOR SEC i OR NO. INFO 


2531 

2532 

2533 

03443 

03444 

03445 

0 37000 
6 17137 
3 37000 


MOVE SS/AUX 
SEL FDAT 
XOR FDAT/AUX 

♦MOVE SECTOR INFO TO AUX 
♦COMPARE SECTOR NUMBER 


2534 

2535 

2536 

03446 

5 00114 


ORG 38/256 

NZT AUX/J208 

ORG 37*25.6... 

*IF ANOTHER SECTOR. GO TO J208 


2537 

2538 

2539 

03447 

03450 

03451 

6 17132 

5 36107 

6 17137 

J209 

SEL ST330 
NZT BYTRA/J209 
SEL EDAT 

♦WAIT FOR RECORD LENGTH INFO. 


2540 
254 < 
2542 

03452 

03453 

6 00001 
3 37000 


XMIT 1H/AUX 
XOR FDAT/AUX 
ORE 35/256 

♦COMPARE FOR LENGTH =256 


2543 

2544 

03454 

03455 

03456 

5 00117 

6 17116 
6 00377 


NZT AUX/J210 
SEL BA 

XMIT 255 /AUX 

*IF NOT L=256. GO to J210 
♦SET LENGTH IN BA (256 BYTES) 


2546 

2547 

_ .2548- 

03457 
03460 
01463 . 

0 00037 
6 17132 
5 36.120 

J 21 1 

MOVE AUX/BA 
SEL ST330 

-Nil BYTRA/J211 

AWAIT FOR 1ST CRC BYTE 
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2549 

2550 
2551- 

03462 

03463 

03464 

6 17137 
6 17132 
6 31100 


SEL FOAT 
SEL COM 
XMIT O-CRCE 

"RESET BYTRA 
*DISABLE CRC GENERATION 


25 >2 
25:53 
251-4 

03465 

03466 

03467 

6 17132 
5 36125 
6 17137 

J212 

SEL ST330 
N2T BYTRA,J212 
SEL FDAT 

*WAIT FOR 2ND CRC BYTE 
*RESET BYTRA 


2555 

2556 
255L 

03470 

03471 

03472 

6 17001 
6 37100 
6 17112 


SEL PLLS 
XMIT 0,PLLS 
SEL PHS1 

A * 

*A* 


2553 

255? 

03473 

03474 

03475 

6 32100 
6 31101 
6 17132 

J214 

XMIT 0,PHS12 
XMIT 1.PHS11 
SEL ST330 

*RESET PRELIMINARY NO IDENTIFIER ERROR 
*SET PRELIMINARY READ ID ERROR 


256 

2562 

2563 

03476 

03477 

5 36135 

6 17137 


N2T BYTRA,J214 
SEL FDAT 
ORG 22,32 

-•WAIT FOR 1ST CRC REMAINDER 


2564 

2565 

03500 

03501 

03502 

0 37000 

5 00130 

6 17132 

J215 

MOVE FDAT,AUX 
N2T AUX,J216 
SEL ST330 

*IF CRC ERROR. GO TO J216 


2567 

2568 

2569 

03503 

03504 

03505 

5 36102 

6 17137 
0 37000 


N2T BYTRA,J215 
SEL FDAT 
MOVE FDAT,AUX 

*WAIT FOR 2ND CRC REMAINDER 


2570 

2571 

2572 

03506 

03507 
03510 

5 00130 
7 03531 

6 01001 

J204 

N2T AUX,J216 
JMP J218 
XMIT 1,R1 

*CRC ERROR? YES, GO TO J216 
*N0 

*PRELIMINARY TRACK ERROR 


2573 

2574 

2575 

03511 

03512 

03513 

7 03430 
6 01001 
7 03440 

J206 

JMP J205 
XMIT 1,R1 
JMP J207 

*SET POSITIONING ERROR FLAG 


2576 

2577 
2575 

03514 

03515 

03516 

5 01047 

6 01002 
7 03447 

J208 

N2T R1 ,J209 
XMIT 2,R1 

JMP J2Q9 

*POSITION ERROR? YES, GO TO J209 
*N0, WRONG IDENTIFIER 


2579 

2580 

2581 

03517 

03520 

03521 

6 00000 
3 37000 
5 00126 

J210 

XMIT 0,AUX 
XOR FDAT,AUX 
N2T AUX,J217 

*COMRARE FOR LENGTH=128 

*L NOT EQUAL TO 128, GO TO J217 


2582 

2583 

03522 

03523 
02524 

6 17116 
6 00177 
0 00037 


SEL BA 

XMIT 127, AUX 
MOVE AUX,BA 

*L=128 

*SET LENGTH =128 IN BA 


2585 

2586 

03525 

03526 

03527 

7 03460 
6 01003 
7 03460 

J 21 7 

JMP J211 
XMIT 3,R1 
J MP J 21 1 

"NOT USED FORMAT STATUS 


2588 

2589 
2550 

03530 

03531 

03532 

6 01004 
4 01132 
7-03540 

J 21 6 
J218 

XMIT 4,R1 
XEC *+1 ( R 1 ) 

RTN ... . 

*CRC ERROR POINTER 

JMP TABLE ON THE END OF CHID 

*QK 


2591 

2592 

03533 

03534 

03535 

7 00503 
7 03536 
7 jQ1041 


JMP POERR 
JMP J219 

JMP MDERR _ 

^POSITIONING ERROR 

*WRONG IDENTIFIER. GO BACK TO PREAM 

*NOT USED FORMAT 


2594 

2595 

03536 

03537 

0 05011 
7 03200 

J 21 9 

MOVE R5,R1 1 
JMP PRSEC 
END CHID 

*ID ERROR AND WRONG ID 
*JMP BACK TO PREAMBLE 


2597 

2598 

2599 



* END 

* 

OF CHECK IDENTIFIER 
END FDC 

SUBROUTINE 


RETURN TABLE 
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03546 

03547 

03550 

03551 

03552 
03553- 

03554 

03555 
Q355 6 
03557 
03560 
0356 1 . 

03562 

03563 

0 356 4 

03565 

03566 

03567 

03570 

03571 

03572 

03573 

03574 

0357 5 

03576 

03577 
Q36QQ 

03601 

03602 

03603 

03604 

03605 
-01606- 
03607 

03610 

03611 

03612 

03613 

036 1 4 

03615 

03616 

0361 7 

03620 

03621 

03622 

03623 

03624 


4 11141 
7 00003 
Z .00033 
7 00111 
7 00123 
7-00.12 5 
7 00140 
7 00142 
.7 .0024 6 
7 00251 
7 00254 
7 00257 
7 00265 
7 00270 
7 00273 
7 00276 
7 00301 
7 00304 
7 00312 
7 00315 
7 00320 
7 00323 
7 00325 
7 00330 
7 00333 
7 00336 
7 00341 
7 00343 
7 00346 
7 0035 1 
7 00354 
7 00356 
7 00361 
7 00364 
7 00367 
7 QQ371 
7 00374 
7 00377 
7 Q04Q2 
7 00406 
7 00410 
7 00417 
7 00452 
7 00454 
-7-00462 
7 00471 
7 00473 
7 005 1 0 
7 00512 
7 00520 
J 0 0530 
7 00532 
7 00541 
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03626 

03627 
_ 03630 

7 00545 
7 00557 






03631 

03632 

7 00576 
7 00601 
7 00603 






0363* 
03635 
_ 03636 

7 00606 
7 00615 
7 00620 






03637 

03640 

03641 

7 00627 
7 00634 
7 00637 






03642 

03643 

03644 

7 00642 
7 00644 
7 00657 






03645 

03646 

03647 

7 00661 
7 00663 
7 00700 






03650 

03651 

03652 

7 00702 
7 00715 
7 00726 






03653 

03654 

03655 

7 00730 
7 00733 
7 00736 






03656 

03657 
03660 

7 00741 
7 00743 
7 00751 






' 3661 
L 662 
CLv 43 

7 00753 
7 00756 
7 00761 






036c 6 
0366. 
03666 

7 00777 
7 01014 
7 01017 






03667 

03670 

03671 

7 01033 
7 01037 
7 Q1054 






03672 

03673 

03674 

7 01056 
7 01071 
7 01101 






03675 

03676 

03677 

7 01116 
7 0112, 

7 01166 _ 






03700 

03701 

03702 

7 01171 
7 01174 
7 Q1177 






03703 

03704 

03705 

7 01202 
7 01205 
7 0121 Q 






03706 

03707 

037.10- 

7 01213 
7 01234 
7 03250 






03711 7 01252 

03712 7 01272 
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03714 

03715 
JHZ1A 
03717 
03720 
_03221_ 


03722 

03723 
133724 


7 01305 
7 01361 
2 _ 

7 01406 
7 01426 
7 01430 


03725 

03726 
_Q1Z2Z_ 


7 01432 
7 01444 
7-01454- 


03730 

03731 

03732 


7 01456 
7 01460 


03733 

03734 

rim 


7 01474 
7 01503 
-7-01505- 


03736 

03737 
03740. 


7 01507 
7 01513 
7 01 515 


03741 

03742 
03243- 


7 01525 
7 01546 
JLQ1552- 


7 01562 
7 01564 
7 02022 


03744 

03745 
03246 


03747 

03750 


7 02033 
7 02067 
7. .02 100 


7 02103 
7 02105 
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SYMBOL TABLE 


☆ 1 








AMOD 

001663 

AMO I 

003254 

AMNI 

013233 

AMSD 

001734 

AMSEA 

013231 

AMSEC 

003225 

AMS I 

003316 

AUX 

000000 

BA 

01 1670 

BCNT 

013251 

BHH 

002451 

BI2 

001500 

8ICL 

001470 

BICRLF 

001470 

8L 

000040 

BSEL 

013332 

BYTRA 

013261 

Cl 

000431 

Cl 00 

002057 

C12 

002140 

C14 

001046 

CIS 

001362 

C16 

0021 25 

C17 

002121 _ 

C18 

002162 

C19 

002163 

C20 

002142 

C21 

002271 

CALL2 

000001 

CBA 

000010 

CC1 

001536 

CC4 

001114 

f.FR 

000305 

CERfi 

000305 

CEXT 

004001 

CFO 

QQQ014 

C6E1 

000135 

CGE2 

000142 

CGE3 

001221 

CGEE1 

000146 

CH 

001335 

CHG4 

002044 

CH67 

002065 

CHID 

003414 

CLRBUF 

002437 

COM 

013270 

£ R 

Q00015 

CRCE 

013211 

CRJ 

000235 

CRLF 

000030 

CRTS 

002414 

CTR1 

011070 

CTR1S 

011001 

CTR1T 

01107? 

CTR2 

011170 

CTR2S 

011101 

CTR2T 

011177 

CUP 

000101 

DATR 

001526 

DATW 

002034 

DCH 

013531 

DCOM 

013470 

DCRGLF 

001511 

DELAY 

000012 

DELAYP 

000021 

DIR 

013401 

DRE 

001526 

DREC 

003337 

DRSFL 

013432 

m 

000403 

DSPS 

000013 

_ DSTA 

Q13570 

DWR 

002034 

£2 

001765 

E3 

001775 

ECRT 

000151 

ESC 

000033 

FDAT 

013770 

FDC 

000000 

FMAM 

002176 

PMMPM 

Oi 3347 

61 

012270 

G2 

012370 

G3 

Q12470 

G4 

012570 

G5 

012670 

G6 

012770 

HI 

001324 

H2 

001326 

HAFR 

013371 

HEAD 

013451 

HHB 

H2503 

Hi? 

001511 

11 

003017 

12 

QQ3036 

IDLE 

Q00102 _ 

IVL 

000007 

IVR 

000017 

IX 

013511 

11 

000013 

1142 

001035 

J143 

001052 

1144 

001041 

1145 

001067 

J146 

Q01Q54 

J200 

001560 

_ 1201 

001555 

1202 

001544 

4220 

001562 

4222 

001625 

1223 

001642 

1224 

001651 

4225 

001657 

4226 

001615 

4227 

001645 

1228 

001672 

4229 

001700 

J230 

001706 

1231 

001713 

1232 

001724 . .. . . . _ . _ __ 

4233 

U01760 

1234 

001730 

1235 

001744 

1236 

001753 

4238 

001721 

1240 

001315 

1241 

001331 

1242 

001364 


001357 

J244 

001337 

_ 1245 

001344 

1246 

001343 _ _ 

J248 

001375 

1251 

001404 

1252 

001416 

1253 

001421 

1254 

001307 

J39 

000573 

140 

000107 

141 

000621 

J44 

000640 

145 

0QQ65Q 

146 

000654 

147 

000415 

J48 

000437 

149 

000434 

150 

000450 

151 

000445 

J56 

001121 

157 

001123 

158 

001140 

159 

001146 

J6QQ 

001303 

1601 

001 27Q 

161 

001246 

165 

001250 

167 

001263 

17 

000147 

170 

000030 

1700 

002101 

1701 

002076 

4702 

002103 

18 

000157 

K1 

000627 

L203 

002201 

L205 

002232 

L2Q6 

QQ2230 

L2Q7 

002256 

L214 

002241 

L333 

002*07 

L444 

000503 

L500MS 

002530 

LB 

000027 

LCNT 

013241 

LF 

000012 

LFCR 

000043 

II 

013461 

LLP 

000526 

LPG1 

000552 

LRA4 

QQ2027 

LRB1 

000722 

LRB2 

000743 

LRB3 

000774 

LRB4 

001004 

LRB5 

000761 

LRBA2 

000715 

LSKE1 

002755 

LTAB 

002674 

| TABA 

002712 

LTABB 

002216 

LTABC 

002222 

LUB2 

001426 

LWB3 

001445 

LWB4 

001467 

MCOM 

013370 

MDERR 

001041 



HEMAM 

uQ2i26 — 

UODLL 

-011462 

NT1 

0CM54 

NT2 

001161 

OKI 

000260 

OKX 

000260 

PttSl 

01 1270 

PHS10 

011201 

PHS13 

011231 

PHS14 

011241 

PHS17 

011271 

PHS2 

011370 

PHS22- 

011321 

PHS23 

011311 

PHS26 

011361 

PHS27 

01137: 

POERR 

000503 

POINT 

000017 

PREA 

013341 

PREAM 

003167 

PRSEC 

003200 

PS 

011570 

RO 

000000 

R1 

000001 

-R3. 

000003 

R330 

. QQQQQ7 

R6 

000006 

RA 

601110 

RBO 

000030 

RBI 

000031 

R6 4 

000034 

RB5 

000035 

RBA 

000675 

RBPS 

000014 

READY 

013271 

RESTOR 

002622 

RH4 

001104 

RHPS 

000002 

RIPS 

000006 

RMOD 

013311 

RTEXT 

004002 

RTN2 

000047 

SEEK1 

QQ2767 

SELDR 

002612 

SK 

000474 

SKPS 

000001 

SS 

011770 

ST330 

013270 





STAS 

011451 

STA6 

011461 

STR 

012070 

TAB1 

000162 

TABLI 

■iiihbffVi 

MMi fiTIBP 

■ilililHM 

THPS 

000007 

TROO 

013501 

WA 

001240 

WA1 

001244 

WBF 

,(101424 

WBPS 

000015 

WHPS 

000004 

NR 

001276 

WRPR 

013521 

WRPS 

000012 

XI 

000664 

X2 

QOQ577 

•• 2 

J22 

000464 



3 




CRSK 

000552 




4 




* 5 


LL5 

* 6 ... 

001017 


C4 001024 


7 


.01322 L 
000016 
000240 
01121 1 
011251 
011301 
.-011341- 
000171 
000010 
OQ3QZ2- 
011575 
000011 
00Q0Q 4 
000003 
000032 
QQQQ36 
013511 
000047 
..001023.. 
000566 
002251 
002566 
013670 
011470 


011471 

002457 




002302 

000005 

QQ1222 

001424 

000630 


PHS16 

PHS21 

PHS25 

P0 

PRCO 


RDMBUF 

RH 


SMEXT 

STAO 


Ki ixaHiiv m i 


TTYWR 

WB 


[inwiini 



LL1 


QQ1Q74 


* 8 

JL7 001101 

*_ J9 _ 

LL3 001111 

•' 10 


JL4 001116 
* 11 


LL4 
* 12 

001224 


JLj 

001227 


* 13 



JL6 

001234 


* 14 

JJ1 

001241 


* 15 



J302 

001272 


* 16 



J300 

001412 


* 17 

J301 

001416 


* la 



BCL 

001511 


☆ 19 

* 20 


T1 

T2 


002305 

002307 


T100 002351 

T3 002312 



Til 

T4 


002321 

002343 


T12 

T5 


002331 

002337 



16 


002316 


* 21 


C36 

002405 

C37 

002411 

124 

002372 

T25 

002366 

* 22 




J8QQ 

002421 

_ J 80 1 

002430 

* 23 

UBl 

002442 



* 24 




C3 

002500 

TAB2 

002457 

* 25 




J42 

0132505 

J 43 

002515 

* 26 

L500 

002531 

L501 

002533 

J? zx . 




LR2 

002550 

LR3 

002545 

* 28 




C33 

002607 

J252 

002610 

* 29 

* 30 

HST1 

002700 

J10 

002647 

J 1 3 

002654 

JT9 

002627 

TT1 

002674 



* 31 

DGTC 

002727 

DNEC 

002713 

L10MS 

002736 

LERRC 

002757 

* 32 


\ 

" 1102767 

J24? 

no? 77 7 

12 43 

J247 

002772 



* 33 




* 34 



C39 


002402 


T21 


002363 




1251 002.601 


J11 002664 J12 002641 

J21 002645 LI 00 002676 


HST2 002762 L101 002760 

LSK 002755 LSP 002732 




L£ail 003032 


* 35 


LNBKI2 
•• 36 
LEQI2 

003041 

LZ12 

003065 






003054 








* 37 
C5 

003144 

J100 

003103 

J101 

003112 

J 1 02 

003131 ...... 


J103 

003134 

J104 

003133 

J106 

003114 

J107 

003120 


J108 

0031 50 

Jill 

003166 

LP1 

003124 




* 38 









J1Q9 

003156 








* 39 

J121 

003225 

J123 

003204 

J124 

003241 

J125 

003247 

✓ 

J606 

003177 

JC12? 

003200 

PR1 

003210 




* 40 









J126 


J127 


J128 

■m 

J129 

QQ33Q2 


J130 

003307 

J135 

003257 






* 41 









J150 

003321 

J152 

003317 

J153 

003327 





* 42 


JC32 003352 E3 003311 

* 43 

J131 003357 J132 003400 


& 44 


CIO 003424 J2Q3 003415 J204 003510 J205 003430 



I 





